Using the factoextra R package

The function fviz_cluster() [factoextra package] can be used to easily visualize k-means clusters. It takes k-means results and the original data as arguments.

#In the resulting plot, observations are represented by points, # using principal components if the number of variables is greater than 2. #It’s also possible to draw concentration ellipse around each cluster.

#install.packages("ggpubr")
#install.packages("factoextra")
library(ggpubr)

## Warning: package 'ggpubr' was built under R version 4.0.5

## 
## Attaching package: 'ggpubr'

## The following object is masked from 'package:plyr':
## 
##     mutate

library(factoextra)

## Warning: package 'factoextra' was built under R version 4.0.5

## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa

#Compute PCA and extract individual coordinates

Dimension reduction using PCA

df_mod6$cluster

##    [1] 1 6 3 3 1 2 1 4 1 3 6 2 6 6 1 6 1 2 1 5 6 3 4 1 2 2 4 6 4 6 3 4 5 1 6 5 2
##   [38] 4 4 6 6 3 4 1 1 5 4 6 3 6 6 4 4 4 1 6 6 4 5 2 4 6 4 4 1 2 6 6 5 6 6 6 4 3
##   [75] 1 6 6 1 5 6 5 4 1 5 6 1 6 2 4 5 3 6 3 4 4 2 2 2 2 4 6 6 6 6 4 6 6 2 2 6 6
##  [112] 3 6 2 1 6 5 5 1 2 5 5 3 4 6 1 5 1 1 4 2 1 4 5 5 4 1 4 6 6 5 6 1 5 6 6 2 5
##  [149] 6 3 5 5 4 4 6 5 6 6 2 5 4 2 1 1 4 1 5 6 2 3 5 1 6 1 6 1 1 5 6 6 5 2 1 1 2
##  [186] 2 6 5 1 5 1 6 6 4 5 5 5 5 4 1 1 1 6 5 6 6 2 3 1 5 5 5 1 4 4 6 4 5 6 1 6 4
##  [223] 5 5 6 2 6 1 1 1 4 6 6 2 2 5 6 4 6 2 1 2 1 2 3 1 3 2 6 1 1 2 1 4 4 2 6 2 2
##  [260] 5 5 6 3 1 1 5 6 4 6 1 2 3 2 6 4 2 6 6 6 6 6 1 6 2 1 2 4 4 2 2 6 4 5 5 3 6
##  [297] 1 6 6 4 6 2 6 1 2 4 5 2 6 6 4 2 2 1 6 6 4 1 6 1 1 1 4 1 1 4 5 4 6 6 6 6 1
##  [334] 3 6 4 4 5 6 4 4 3 1 4 6 4 1 4 2 2 6 2 6 2 2 5 2 5 1 1 1 1 4 5 1 3 1 5 1 1
##  [371] 5 1 4 1 1 1 2 1 4 3 5 2 2 2 1 3 1 5 1 1 6 1 6 6 6 6 4 6 2 1 2 2 1 1 4 6 1
##  [408] 6 4 5 1 2 1 6 4 1 5 4 1 1 3 6 2 5 1 2 2 5 4 4 1 2 1 5 5 1 6 1 2 3 5 6 3 3
##  [445] 3 1 6 1 2 5 6 1 5 4 2 3 1 5 6 2 6 2 6 5 3 6 4 1 5 1 4 6 6 3 2 2 5 6 1 6 5
##  [482] 6 6 5 2 1 2 6 1 4 1 4 5 1 5 2 5 4 3 5 5 5 2 5 2 1 1 6 1 1 6 1 5 1 1 6 6 6
##  [519] 6 4 5 6 6 4 2 3 2 5 2 2 1 5 4 4 4 2 1 1 1 5 6 6 5 6 1 4 5 1 1 5 1 2 1 2 5
##  [556] 5 6 1 1 4 6 6 5 1 6 4 2 1 6 6 5 5 4 3 5 6 6 1 1 6 5 2 1 2 1 2 6 6 6 1 2 2
##  [593] 1 1 4 6 6 5 1 2 1 1 6 4 6 6 2 6 4 6 5 1 5 5 2 6 3 4 5 1 2 3 4 6 5 1 4 2 1
##  [630] 2 6 5 5 2 2 6 2 5 6 5 6 6 1 2 1 5 5 4 5 1 6 6 6 2 2 5 6 6 1 2 6 4 1 1 1 4
##  [667] 4 1 6 3 1 1 5 1 6 6 4 1 2 2 1 4 1 4 1 5 6 5 1 4 4 5 5 2 5 5 1 1 6 3 6 6 6
##  [704] 6 1 2 5 1 5 5 2 5 4 2 5 1 6 1 5 4 1 1 3 5 1 1 4 1 1 3 1 2 6 2 2 2 2 3 6 2
##  [741] 6 6 5 5 2 3 5 6 1 2 4 2 6 4 1 4 6 4 1 6 1 5 5 5 2 5 2 4 4 4 4 1 5 6 2 5 6
##  [778] 5 1 1 4 5 6 4 4 2 6 1 6 1 1 2 5 1 6 1 2 4 1 1 5 5 5 6 2 1 4 2 2 6 5 1 6 6
##  [815] 4 6 5 2 2 2 4 5 6 5 6 1 5 2 6 5 3 6 1 1 2 3 6 5 2 1 4 1 2 6 1 6 5 1 4 4 2
##  [852] 1 6 1 5 1 1 4 5 6 1 4 4 1 1 3 2 1 2 2 4 5 5 5 6 1 6 1 2 6 1 1 5 4 2 6 4 5
##  [889] 6 6 5 6 2 5 6 5 1 5 1 6 6 2 5 5 2 4 2 1 6 6 5 2 5 1 3 4 4 5 6 1 2 1 6 4 5
##  [926] 2 6 3 2 1 4 1 5 6 2 3 4 5 6 5 6 5 6 1 2 5 5 5 2 6 4 6 1 2 1 1 2 1 4 3 3 3
##  [963] 6 6 4 2 4 5 4 4 5 6 1 3 1 6 5 2 6 4 4 5 6 4 4 1 5 4 6 5 5 1 2 1 1 6 2 1 1
## [1000] 3 1 5 5 2 1 6 3 5 1 6 1 6 2 1 4 4 6 5 1 1 4 1 6 1 2 4 5 4 1 6 2 5 2 4 1 5
## [1037] 6 6 1 5 1 4 6 2 4 1 1 4 3 1 4 4 1 6 6 6 2 5 2 1 3 6 6 6 6 6 5 6 1 2 1 6 3
## [1074] 1 5 2 5 5 6 4 1 5 4 1 6 5 5 1 3 1 2 1 5 2 4 6 5 5 4 4 2 2 3 1 4 5 1 3 5 1
## [1111] 2 1 6 1 6 2 5 2 1 4 4 4 2 6 1 5 1 2 6 1 5 5 2 3 6 6 6 1 1 6 5 5 4 6 6 2 6
## [1148] 2 1 5 1 1 1 6 5 4 5 6 5 1 2 4 6 5 6 6 2 5 2 5 1 5 6 2 5 5 2 1 5 4 1 1 4 1
## [1185] 1 5 2 2 3 5 5 1 6 2 4 4 3 2 1 6 1 4 5 5 4 1 6 6 5 1 5 6 1 5 4 5 6 6 5 6 5
## [1222] 6 4 1 2 5 6 6 2 6 1 3 4 6 3 4 4 1 1 5 4 4 2 2 1 1 2 1 5 5 6 6 6 2 2 1 1 4
## [1259] 5 6 1 6 4 1 2 4 6 2 6 5 1 5 1 6 6 1 6 6 2 1 4 1 6 5 2 1 5 4 1 5 4 1 6 6 2
## [1296] 6 5 1 6 2 6 5 6 1 3 2 1 4 6 5 5 6 2 6 2 1 2 1 1 6 5 6 5 4 4 2 4 6 1 6 2 5
## [1333] 2 2 1 1 3 6 5 1 1 2 4 4 1 6 2 5 6 4 1 3 3 1 2 4 2 5 6 1 4 6 6 6 5 1 3 6 6
## [1370] 4 6 1 1 2 1 4 2 5 1 1 3 6 6 5 1 2 6 3 6 5 5 1 6 4 4 4 3 6 4 4 6 2 6 3 5 1
## [1407] 1 6 2 1 1 6 4 4 1 1 6 3 4 6 6 1 2 6 1 1 4 1 1 5 5 4 6 1 6 5 3 6 5 1 2 6 6
## [1444] 6 2 5 2 6 6 5 1 1 6 3 6 6 1 2 1 6 5 1 6 1 1 1 6 1 2 5 6 2 3 1 1 1 6 5 4 5
## [1481] 4 1 5 1 1 4 1 5 1 4 5 2 6 5 4 6 1 1 1 1 1 2 5 2 2 5 1 6 6 2 6 1 6 4 6 1 6
## [1518] 4 6 1 4 6 3 2 1 2 1 4 6 5 6 6 5 4 6 1 5 6 5 6 1 6 5 1 1 1 4 3 2 2 4 6 2 2
## [1555] 6 1 6 2 1 6 1 4 1 4 6 1 4 3 2 2 6 5 5 4 1 5 1 5 1 6 1 5 5 6 4 1 1 6 5 5 1
## [1592] 1 6 6 5 5 6 6 6 6 6 2 5 2 1 1 4 6 5 5 5 5 1 6 6 6 5 4 6 4 3 6 6 1 5 5 2 2
## [1629] 6 1 6 6 6 6 1 1 2 5 1 6 6 5 5 3 4 6 6 1 2 5 1 6 4 1 6 5 5 5 6 4 5 1 6 1 6
## [1666] 2 2 2 6 2 5 1 5 1 6 6 3 5 1 5 1 1 6 1 6 5 4 6 1 4 6 2 1 1 5 5 6 6 5 5 4 2
## [1703] 1 6 1 6 4 5 6 3 1 6 5 6 5 5 6 2 6 5 6 4 4 4 3 2 3 1 6 5 1 6 1 6 1 2 3 4 1
## [1740] 6 1 6 1 6 6 6 2 6 1 2 6 2 6 2 6 5 2 2 6 2 1 6 2 1 4 6 2 6 6 6 2 2 3 4 2 2
## [1777] 4 1 2 5 5 5 6 2 5 4 6 1 5 1 5 5 6 5 6 4 1 4 6 5 4 1 5 1 5 5 2 5 2 5 5 2 1
## [1814] 6 5 5 6 5 4 5 2 5 6 6 1 2 1 4 4 5 5 1 4 2 6 4 2 5 3 5 6 1 6 6 6 1 6 1 5 6
## [1851] 5 6 1 2 4 2 5 5 2 5 5 6 4 6 2 1 2 1 2 6 4 5 5 2 1 1 3 1 1 1 1 2 4 6 4 2 6
## [1888] 2 5 6 2 1 6 5 2 6 2 2 5 4 4 4 2 2 1 5 6 2 1 3 4 6 3 6 5 5 2 2 5 6 5 2 1 1
## [1925] 4 5 6 1 6 1 4 5 5 5 4 6 1 4 5 5 4 6 1 5 4 5 1 5 5 4 2 4 4 6 4 1 6 5 4 5 1
## [1962] 5 5 1 6 6 6 6 2 4 2 2 5 6 4 6 6 5 4 6 6 1 1 5 6 1 6 1 4 1 3 6 1 2 2 4 6 6
## [1999] 2 6 4 1 6 2 3 2 4 1 4 2 4 4 4 6 4 5 1 1 2 6 1 5 1 6 4 5 5 1 5 1 5 2 4 6 2
## [2036] 1 4 1 2 2 6 6 5 2 2 1 1 1 5 3 6 5 6 5 6 3 1 2 4 2 1 2 1 3 5 1 6 2 4 1 2 1
## [2073] 6 6 5 5 2 6 5 6 1 5 6 1 1 5 1 6 1 5 1 6 1 4 1 2 5 2 3 6 4 5 6 3 2 1 5 4 6
## [2110] 1 4 5 2 1 4 1 1 6 2 5 6 1 6 1 1 1 1 1 1 2 6 1 1 1 4 1 2 2 2 3 6 5 5 4 1 1
## [2147] 6 6 2 2 1 4 1 1 1 4 1 1 1 5 4 1 3 5 3 6 4 2 5 5 5 1 1 6 5 5 3 2 6 6 1 6 2
## [2184] 6 3 5 6 1 4 4 1 1 6 4 1 1 5 1 2 1 5 6 4 1 1 5 2 5 4 1 4 5 4 3 1 5 2 5 1 1
## [2221] 5 4 1 6 4 5 6 6 5 1 1 4 6 4 4 5 1 6 3 6 1 6 4 3 1 6 4 5 1 1 1 2 5 3 1 1 1
## [2258] 2 2 1 1 1 2 6 1 6 2 1 2 4 6 5 5 4 1 5 1 6 6 5 2 5 4 2 5 6 1 1 4 1 6 6 1 1
## [2295] 1 2 5 2 6 1 4 1 5 1 1 5 4 6 4 2 5 5 2 4 2 5 2 4 6 1 6 3 1 2 6 2 6 6 5 6 2
## [2332] 6 1 5 6 6 4 4 1 6 1 6 6 5 1 6 2 6 2 5 5 6 5 6 1 6 6 6 6 2 4 1 2 5 1 1 6 5
## [2369] 6 6 2 5 1 4 1 6 5 5 2 1 6 5 5 2 4 6 2 6 2 4 2 1 1 4 6 2 6 1 5 1 1 5 5 6 4
## [2406] 5 5 2 6 2 5 5 2 3 1 2 1 5 2 5 6 2 5 6 2 6 1 1 4 4 6 2 6 5 4 5 1 1 6 4 1 4
## [2443] 2 1 1 1 5 5 1 2 1 2 5 4 5 2 1 1 5 4 5 1 2 1 3 6 6 5 6 2 5 6 2 2 1 6 1 5 1
## [2480] 5 3 1 6 5 4 6 1 6 1 4 6 6 1 2 1 2 4 1 6 2 2 3 1 1 2 6 5 1 4 1 1 4 2 6 5 5
## [2517] 2 5 2 1 2 5 4 6 6 1 5 6 4 4 5 1 5 2 6 5 1 6 5 5 1 1 4 1 5 3 5 3 6 6 1 5 2
## [2554] 2 1 6 3 4 4 2 1 5 6 6 2 2 4 2 6 6 4 4 3 3 6 1 2 2 1 1 3 6 4 5 4 4 6 2 5 5
## [2591] 6 2 5 4 1 5 6 5 2 1 5 6 4 6 5 6 6 6 6 5 3 2 1 6 1 2 2 6 2 4 1 1 2 1 5 5 4
## [2628] 4 1 1 1 2 1 2 2 3 5 6 6 1 6 1 6 1 1 2 1 1 1 1 1 5 6 2 1 5 1 3 1 1 1 1 3 2
## [2665] 2 6 2 2 6 6 5 5 5 6 2 2 1 3 1 6 5 4 2 4 3 6 6 6 4 5 6 5 2 5 6 5 6 6 3 6 2
## [2702] 1 6 5 2 4 6 2 6 6 6 6 5 5 6 2 4 2 2 5 5 5 6 1 4 6 1 4 4 2 4 3 2 2 4 5 6 1
## [2739] 5 2 4 1 2 6 6 1 2 1 4 2 2 5 1 1 6 1 2 5 6 4 1 6 4 1 4 1 2 1 1 3 2 2 3 2 5
## [2776] 1 5 3 4 1 6 1 1 1 6 1 1 5 4 6 4 5 1 1 6 2 3 3 6 5 1 4 1 5 4 5 1 6 1 6 4 1
## [2813] 1 5 6 4 3 6 2 1 4 6 1 1 2 6 3 6 5 4 2 4 4 5 1 5 6 5 3 5 4 2 6 6 2 5 5 6 1
## [2850] 5 6 6 1 5 2 2 4 5 2 3 6 5 2 5 4 5 4 1 3 2 4 4 6 1 1 4 1 2 5 2 5 5 6 6 6 2
## [2887] 4 2 1 5 3 1 1 6 6 1 1 6 2 6 1 6 4 4 4 6 1 4 1 1 5 6 3 1 6 6 1 1 6 2 1 5 1
## [2924] 6 1 4 3 4 5 5 1 6 4 5 1 4 5 2 1 4 5 6 6 5 6 3 5 1 1 4 3 5 2 1 5 2 6 1 2 1
## [2961] 5 6 5 1 2 6 2 6 6 2 5 2 2 5 6 2 6 6 2 4 6 1 1 6 3 4 5 4 2 1 4 1 6 2 6 4 2
## [2998] 1 6 4 1 5 1 5 6 6 5 5 5 5 5 2 2 4 6 5 1 1 6 1 5 1 5 4 5 5 6 6 6 5 2 2 5 5
## [3035] 1 1 4 1 5 5 4 6 1 6 6 1 5 2 6 6 5 6 6 1 1 6 5 6 5 2 4 5 1 1 5 5 2 4 4 2 2
## [3072] 6 1 1 5 4 2 5 5 1 1 6 2 6 5 1 5 5 4 6 6 1 5 5 1 2 3 6 2 4 2 5 1 1 6 6 4 1
## [3109] 4 2 5 6 5 6 2 2 4 1 2 4 5 6 6 4 4 5 1 1 1 1 4 1 1 5 5 6 5 5 4 5 5 1 2 5 5
## [3146] 5 6 6 1 1 2 5 1 2 1 6 1 5 4 1 4 1 6 5 6 4 6 1 2 6 2 1 2 1 4 1 5 5 6 2 1 6
## [3183] 3 6 1 1 2 1 5 4 2 6 6 3 6 4 2 6 1 5 3 2 6 4 6 2 5 5 1 4 1 1 4 6 6 6 2 2 3
## [3220] 6 3 6 6 4 5 1 6 4 6 5 1 6 4 4 6 1 6 6 4 5 4 6 5 1 1 5 6 6 6 6 2 2 2 3 1 5
## [3257] 4 4 1 1 5 2 1 2 1 6 1 4 6 2 1 6 6 5 4 6 4 5 5 6 4 1 6 5 4 5 2 6 1 5 6 4 5
## [3294] 6 4 5 2 4 4 4 1 6 1 2 1 6 6 1 2 6 1 1 2 2 5 1 1 5 1 2 1 1 5 6 1 6 6 4 6 5
## [3331] 5 5 1 1 2 5 5 5 1 4 5 5 1 6 6 5 6 6 6 5 6 5 4 1 5 2 5 4 6 2 1 5 1 2 6 2 4
## [3368] 2 6 6 4 6 5 6 6 1 5 2 2 1 6 4 5 6 2 1 1 6 2 2 6 5 2 4 5 6 6 6 4 6 1 1 2 4
## [3405] 4 1 5 3 1 5 1 5 2 1 1 1 3 1 2 2 5 1 5 3 4 5 6 6 6 3 6 5 2 1 2 1 2 1 1 5 6
## [3442] 4 2 2 2 5 5 2 6 6 5 6 5 5 5 1 6 1 5 2 4 2 1 4 5 1 2 2 6 2 1 1 4 4 6 6 1 2
## [3479] 1 2 4 6 1 6 4 2 4 1 6 6 4 6 6 2 2 5 5 5 5 3 4 6 4 6 6 3 6 6 1 2 2 6 2 3 1
## [3516] 4 6 6 1 5 6 2 1 1 2 1 1 1 1 5 4 1 6 3 1 2 1 6 1 1 2 4 3 5 1 5 5 5 5 2 2 6
## [3553] 6 5 6 1 5 2 1 5 3 1 2 1 4 6 5 3 5 1 3 4 5 6 3 1 2 2 5 6 4 5 5 6 1 6 6 1 6
## [3590] 5 6 2 5 4 1 2 6 4 4 6 2 5 1 5 6 2 6 1 4 6 4 1 2 4 2 1 4 5 2 2 1 4 5 1 4 2
## [3627] 1 1 6 5 4 1 5 4 6 5 6 6 6 2 1 6 2 5 1 2 5 2 1 3 1 1 4 1 3 6 6 3 4 6 6 2 1
## [3664] 2 5 1 5 1 4 6 1 6 4 1 5 2 6 5 6 1 2 5 4 5 1 2 4 5 2 5 1 6 6 1 6 5 2 6 2 1
## [3701] 4 5 6 2 6 5 2 5 2 3 2 5 6 1 4 1 3 2 4 6 3 5 6 2 4 1 1 2 2 2 5 5 6 5 6 5 6
## [3738] 2 2 6 5 6 1 5 4 2 4 6 5 1 1 6 1 4 1 5 1 6 6 6 5 4 1 1 4 2 6 5 6 4 6 1 2 5
## [3775] 3 2 4 5 5 2 5 1 5 3 6 1 2 1 5 1 5 1 2 2 4 4 5 4 1 6 5 6 6 5 1 2 6 1 3 5 2
## [3812] 2 2 1 1 2 4 6 6 1 5 1 1 2 5 2 1 2 1 1 5 1 4 2 1 3 2 1 2 4 5 2 2 6 6 1 6 5
## [3849] 5 1 6 1 2 1 6 1 2 4 4 6 6 6 6 4 2 6 4 5 1 6 5 4 5 6 6 6 6 4 1 1 2 1 5 2 5
## [3886] 2 6 5 6 1 2 2 6 5 5 1 5 4 1 6 4 5 3 4 5 6 6 2 1 3 3 2 6 1 3 2 2 6 5 3 1 2
## [3923] 6 6 5 6 2 6 1 3 5 6 5 6 6 6 1 4 1 1 4 6 1 1 6 1 3 2 4 6 6 1 1 1 2 5 1 1 6
## [3960] 1 6 2 6 3 4 6 2 6 6 4 1 2 4 6 2 5 6 3 1 6 1 1 4 6 1 3 6 6 2 5 2 1 2 4 5 6
## [3997] 6 4 5 2 4 1 6 2 1 5 5 5 4 5 1 6 5 2 4 2 6 6 6 6 5 2 3 6 6 6 5 2 3 1 5 6 2
## [4034] 4 2 5 5 2 5 6 6 2 6 1 1 3 4 1 4 5 1 1 2 3 6 1 1 6 1 6 2 6 1 2 1 6 1 3 4 1
## [4071] 5 1 1 1 6 6 2 6 1 2 1 4 1 5 1 6 5 5 4 5 1 1 5 5 4 1 1 2 1 4 2 2 4 6 6 1 3
## [4108] 1 1 5 2 3 4 2 4 1 2 3 1 3 1 5 1 5 1 3 4 2 6 1 1 5 1 1 6 1 2 6 2 1 1 1 1 1
## [4145] 5 6 6 4 5 1 6 4 1 5 5 1 5 1 1 4 1 6 2 2 1 2 5 3 1 1 1 1 5 2 6 5 1 5 6 1 1
## [4182] 5 1 5 2 2 2 1 5 6 5 2 6 5 1 1 5 6 1 5 2 3 4 1 6 5 5 1 6 1 1 4 1 6 6 1 6 5
## [4219] 5 2 5 4 1 3 5 3 3 3 1 6 6 1 5 6 2 5 1 1 6 5 2 1 1 6 2 6 1 1 4 6 5 6 5 2 1
## [4256] 2 1 2 4 1 6 1 4 4 3 6 1 5 5 5 4 2 5 6 2 1 5 3 5 1 2 4 5 2 4 6 3 5 1 2 4 3
## [4293] 6 2 4 5 1 3 4 1 1 4 1 5 4 6 1 4 1 6 5 5 6 5 1 1 5 5 5 1 6 1 2 1 6 1 6 6 1
## [4330] 2 6 3 4 5 1 6 2 2 4 5 6 3 6 5 4 5 1 3 2 5 1 6 3 4 5 1 2 4 1 1 5 6 5 5 5 5
## [4367] 5 1 1 5 6 3
## Levels: 1 2 3 4 5 6

res.pca <- prcomp(df_mod6[,c("rec_bins","freq_bins","mon_bins")],  scale = TRUE)
# Coordinates of individuals
ind.coord <- as.data.frame(get_pca_ind(res.pca)$coord)
# Add clusters obtained using the K-means algorithm
ind.coord$cluster <- factor(df_mod6$cluster)
# Data inspection


k_mod6=kmeans(rfm_bin[,c("mon_bins","rec_bins","freq_bins")],centers=6)
df_mod6=cbind(rfm_bin[,c("mon_bins","rec_bins","freq_bins")],"cluster"=k_mod6$cluster)
df_mod6$cluster=as.factor(df_mod6$cluster)
head(df_mod6)

##   mon_bins rec_bins freq_bins cluster
## 1        1        5         1       5
## 2        5        1         5       4
## 3        4        3         2       6
## 4        4        2         3       6
## 5        2        5         1       5
## 6        3        2         4       3

head(k_mod6)

## $cluster
##    [1] 5 4 6 6 5 3 5 1 5 6 4 3 4 4 5 4 1 3 1 2 4 6 3 5 3 2 1 4 3 4 6 1 2 5 4 2 3
##   [38] 3 3 4 4 6 1 5 5 2 1 4 6 4 4 1 3 3 1 4 4 1 2 3 1 4 1 3 1 3 4 4 2 4 4 4 3 6
##   [75] 5 4 4 5 2 4 2 3 1 2 4 5 4 2 1 2 6 4 6 3 1 3 3 3 3 1 4 4 4 4 3 4 4 3 2 4 4
##  [112] 6 4 3 5 4 2 2 1 3 2 2 6 4 4 5 2 5 5 1 3 5 1 2 2 1 5 3 4 4 2 4 1 2 4 4 3 2
##  [149] 4 6 2 2 1 3 4 2 4 4 3 2 3 3 5 5 3 5 2 4 3 6 2 1 4 5 4 1 5 2 4 4 2 3 5 5 3
##  [186] 3 4 2 1 2 1 4 4 1 2 2 2 2 1 1 1 1 4 2 4 4 3 6 1 2 2 2 5 3 3 4 3 2 4 1 4 3
##  [223] 2 2 4 3 4 5 1 1 1 4 4 3 3 2 4 4 4 3 1 3 5 3 6 1 6 3 4 1 1 2 5 1 1 2 4 3 3
##  [260] 2 2 4 6 5 5 2 4 1 4 5 2 6 3 4 3 3 4 4 4 4 4 5 4 3 5 3 1 3 2 3 4 3 2 2 6 4
##  [297] 1 4 4 1 4 3 4 1 3 1 2 2 4 4 3 3 3 1 4 4 3 1 4 5 1 5 1 5 5 3 2 1 4 4 4 4 5
##  [334] 6 4 1 1 2 4 6 3 6 1 1 4 1 1 3 3 3 4 3 4 3 3 2 2 2 1 5 1 1 3 2 5 6 1 2 1 1
##  [371] 2 5 1 1 5 1 3 5 3 6 2 3 2 3 5 6 5 2 1 1 4 5 4 4 4 4 3 4 3 1 3 3 1 1 1 4 5
##  [408] 4 1 2 5 3 1 4 1 5 2 1 5 5 6 4 3 2 5 2 3 2 3 3 5 3 5 2 2 5 4 5 3 6 2 4 6 6
##  [445] 6 1 4 5 3 2 4 1 2 3 3 6 5 2 4 3 4 3 4 2 6 4 1 5 2 1 1 4 4 6 3 3 2 4 5 4 2
##  [482] 4 4 2 3 5 3 4 5 1 5 1 2 1 2 3 2 1 6 2 2 2 3 2 3 1 1 4 5 5 4 1 2 5 5 4 4 4
##  [519] 4 3 2 4 4 3 3 6 3 2 3 3 5 2 3 1 3 3 5 1 1 2 4 4 2 4 1 3 2 5 5 2 5 3 5 3 2
##  [556] 2 4 5 5 1 4 4 2 5 4 6 2 5 4 4 2 2 4 6 2 4 4 5 5 4 2 3 5 3 5 3 4 4 4 1 3 3
##  [593] 5 1 1 4 4 2 5 3 5 5 4 1 4 4 3 4 1 4 2 5 2 2 2 4 6 1 2 5 3 6 1 4 2 5 1 3 1
##  [630] 3 4 2 2 3 3 4 3 2 4 2 4 4 5 3 5 2 2 1 2 5 4 4 4 3 3 2 4 4 1 3 4 3 5 5 5 3
##  [667] 1 5 4 6 5 5 2 5 4 4 3 1 3 3 1 1 5 1 5 2 4 2 1 1 1 2 2 3 2 2 1 5 4 6 4 4 4
##  [704] 4 5 3 2 5 2 2 3 2 1 3 2 5 4 1 2 1 5 5 6 2 5 1 1 5 1 6 5 3 4 3 2 3 3 6 4 2
##  [741] 4 4 2 2 3 6 2 4 1 3 1 2 4 3 1 1 4 1 1 4 1 2 2 2 3 2 2 3 1 3 1 1 2 4 3 2 4
##  [778] 2 1 5 1 2 4 3 1 3 4 5 4 1 1 3 2 5 4 1 3 3 1 1 2 2 2 4 3 5 1 3 2 4 2 5 4 4
##  [815] 1 4 2 2 3 3 3 2 4 2 4 1 2 3 4 2 6 4 5 5 3 6 4 2 3 5 3 1 3 4 5 4 2 1 1 1 3
##  [852] 5 4 5 2 5 1 3 2 4 5 3 1 5 1 6 2 1 3 3 1 2 2 2 4 1 4 5 3 4 5 5 2 3 3 4 3 2
##  [889] 4 4 2 4 3 2 4 2 1 2 1 4 4 3 2 2 3 1 3 5 4 4 2 3 2 5 6 3 1 2 4 1 3 5 4 1 2
##  [926] 3 4 6 2 5 1 5 2 4 2 6 3 2 4 2 4 2 4 5 3 2 2 2 3 4 3 4 1 3 5 5 3 5 4 6 6 6
##  [963] 4 4 3 3 3 2 3 1 2 4 5 6 1 4 2 3 4 1 1 2 4 1 3 5 2 1 4 2 2 5 3 1 5 4 3 5 5
## [1000] 6 5 2 2 3 5 4 6 2 5 4 5 4 3 1 1 1 4 2 5 5 1 5 4 5 3 1 2 6 5 4 3 2 3 1 1 2
## [1037] 4 4 1 2 1 3 4 3 1 5 5 1 6 5 1 1 5 4 4 4 3 2 3 5 6 4 4 4 4 4 2 4 5 3 5 4 6
## [1074] 5 2 3 2 2 4 1 1 2 6 5 4 2 2 5 6 5 3 5 2 3 3 4 2 2 1 1 3 3 6 5 3 2 5 6 2 1
## [1111] 3 5 4 5 4 2 2 3 1 3 3 6 3 4 5 2 5 3 4 1 2 2 3 6 4 4 4 1 1 4 2 2 3 4 4 3 4
## [1148] 3 1 2 1 1 5 4 2 1 2 4 2 5 2 1 4 2 4 4 2 2 3 2 5 2 4 3 2 2 2 1 2 3 5 1 1 1
## [1185] 5 2 3 3 6 2 2 5 4 3 1 4 6 2 1 4 5 3 2 2 1 5 4 4 2 5 2 4 5 2 3 2 4 4 2 4 2
## [1222] 4 3 5 3 2 4 4 3 4 5 6 1 4 6 1 1 5 1 2 3 4 3 2 1 1 2 5 2 2 4 4 4 3 3 1 5 3
## [1259] 2 4 5 4 1 5 3 1 4 3 4 2 5 2 1 4 4 5 4 4 3 5 3 5 4 2 3 1 2 1 5 2 1 5 4 4 2
## [1296] 4 2 5 4 3 4 2 4 5 6 3 5 3 4 2 2 4 2 4 3 5 3 5 5 4 2 4 2 1 3 3 1 4 1 4 3 2
## [1333] 3 3 1 5 6 4 2 5 5 3 3 1 5 4 3 2 4 1 5 6 6 5 3 1 2 2 4 1 3 4 4 4 2 5 6 4 4
## [1370] 3 4 1 5 3 5 3 2 2 1 5 6 4 4 2 5 3 4 6 4 2 2 1 4 1 1 1 6 4 3 1 4 3 4 6 2 5
## [1407] 5 4 3 5 5 4 1 1 5 5 4 6 1 4 4 5 3 4 1 1 1 1 5 2 2 3 4 5 4 2 6 4 2 5 3 4 4
## [1444] 4 3 2 3 4 4 2 5 5 4 6 4 4 5 3 5 4 2 1 4 1 5 5 4 1 3 2 4 3 6 1 5 5 4 2 1 2
## [1481] 1 1 2 5 5 1 5 2 5 3 2 3 4 2 6 4 5 5 5 1 5 3 2 3 3 2 5 4 4 3 4 5 4 3 4 1 4
## [1518] 1 4 5 6 4 6 3 1 3 5 3 4 2 4 4 2 3 4 5 2 4 2 4 1 4 2 5 5 5 1 6 3 3 3 4 3 2
## [1555] 4 1 4 2 5 4 5 1 5 4 4 5 1 6 3 3 4 2 2 3 5 2 1 2 1 4 5 2 2 4 3 1 5 4 2 2 1
## [1592] 1 4 4 2 2 4 4 4 4 4 3 2 3 5 1 3 4 2 2 2 2 5 4 4 4 2 3 4 1 6 4 4 5 2 2 2 3
## [1629] 4 5 4 4 4 4 1 1 3 2 1 4 4 2 2 6 3 4 4 1 3 2 5 4 1 5 4 2 2 2 4 1 2 5 4 5 4
## [1666] 3 3 3 4 3 2 1 2 1 4 4 6 2 5 2 1 1 4 1 4 2 1 4 5 3 4 3 5 1 2 2 4 4 2 2 1 3
## [1703] 1 4 5 4 3 2 4 6 1 4 2 4 2 2 4 3 4 2 4 1 1 1 6 3 6 5 4 2 5 4 5 4 5 3 6 1 5
## [1740] 4 5 4 5 4 4 4 2 4 5 3 4 3 4 3 4 2 3 3 4 3 5 4 3 5 1 4 3 4 4 4 2 3 6 1 3 3
## [1777] 1 1 3 2 2 2 4 3 2 1 4 5 2 1 2 2 4 2 4 1 5 3 4 2 1 1 2 5 2 2 3 2 3 2 2 3 5
## [1814] 4 2 2 4 2 1 2 3 2 4 4 5 3 5 1 3 2 2 5 1 3 4 1 3 2 6 2 4 5 4 4 4 5 4 5 2 4
## [1851] 2 4 1 3 3 3 2 2 3 2 2 4 1 4 3 5 3 1 3 4 3 2 2 3 1 1 6 1 5 5 1 3 3 4 1 3 4
## [1888] 3 2 4 3 1 4 2 2 4 3 3 2 3 1 1 3 3 5 2 4 3 5 6 1 4 6 4 2 2 3 2 2 4 2 3 5 1
## [1925] 3 2 4 5 4 5 1 2 2 2 3 4 5 1 2 2 3 4 5 2 1 2 1 2 2 1 3 4 1 4 3 5 4 2 3 2 5
## [1962] 2 2 1 4 4 4 4 3 3 3 3 2 4 1 4 4 2 3 4 4 1 5 2 4 5 4 1 3 5 6 4 5 3 3 1 4 4
## [1999] 3 4 3 5 4 3 6 3 1 5 1 3 1 3 1 4 1 2 5 5 3 4 1 2 1 4 1 2 2 1 2 5 2 3 1 4 3
## [2036] 5 1 1 3 3 4 4 2 3 3 5 5 1 2 6 4 2 4 2 4 6 1 3 1 3 5 3 5 6 2 5 4 3 1 1 2 1
## [2073] 4 4 2 2 3 4 2 4 5 2 4 1 5 2 1 4 5 2 5 4 5 3 1 3 2 2 6 4 1 2 4 6 3 5 2 3 4
## [2110] 5 3 2 3 1 3 5 1 4 3 2 4 5 4 5 5 1 5 1 5 3 4 1 1 5 4 5 3 3 3 6 4 2 2 6 1 5
## [2147] 4 4 3 3 1 3 5 5 1 1 5 5 5 2 1 5 6 2 6 4 3 3 2 2 2 5 5 4 2 2 6 3 4 4 5 4 2
## [2184] 4 6 2 4 1 3 3 5 1 4 3 5 1 2 5 2 5 2 4 3 1 1 2 3 2 1 1 1 2 3 6 1 2 2 2 5 5
## [2221] 2 1 5 4 1 2 4 4 2 5 5 1 4 3 4 2 5 4 6 4 5 4 4 6 5 4 1 2 1 5 5 3 2 6 5 5 5
## [2258] 3 3 1 1 5 3 4 5 4 3 5 3 1 4 2 2 3 5 2 5 4 4 2 3 2 3 3 2 4 1 5 3 5 4 4 5 5
## [2295] 1 3 2 3 4 5 1 1 2 1 5 2 1 4 3 3 2 2 3 1 2 2 3 1 4 1 4 6 5 3 4 3 4 4 2 4 3
## [2332] 4 1 2 4 4 1 1 5 4 5 4 4 2 5 4 2 4 3 2 2 4 2 4 5 4 4 4 4 3 1 5 2 2 5 5 4 2
## [2369] 4 4 3 2 5 3 5 4 2 2 3 5 4 2 2 3 1 4 3 4 3 1 3 5 5 3 4 3 4 1 2 1 5 2 2 4 1
## [2406] 2 2 3 4 3 2 2 3 6 5 3 5 2 3 2 4 3 2 4 3 4 1 1 1 3 4 3 4 2 3 2 5 1 4 4 1 1
## [2443] 3 1 1 1 2 2 1 3 1 3 2 1 2 3 5 5 2 4 2 5 3 5 6 4 4 2 4 3 2 4 3 3 5 4 5 2 5
## [2480] 2 6 1 4 2 1 4 5 4 5 3 4 4 5 3 1 2 1 5 4 3 3 6 5 5 2 4 2 5 3 5 5 1 3 4 2 2
## [2517] 3 2 3 5 3 2 1 4 4 5 2 4 3 3 2 5 2 3 4 2 1 4 2 2 5 5 1 1 2 6 2 6 4 4 1 2 3
## [2554] 2 1 4 6 3 1 3 5 2 4 4 3 3 4 3 4 4 1 1 6 6 4 5 3 3 5 1 6 4 1 2 3 1 4 3 2 2
## [2591] 4 3 2 3 5 2 4 2 3 5 2 4 1 4 2 4 4 4 4 2 6 3 1 4 5 3 3 4 3 1 1 1 3 1 2 2 1
## [2628] 1 5 5 5 3 5 3 3 6 2 4 4 5 4 5 4 5 1 3 1 1 5 5 5 2 4 3 5 2 1 6 5 5 5 5 6 3
## [2665] 2 4 3 3 4 4 2 2 2 4 3 2 5 6 5 4 2 1 3 3 6 4 4 4 1 2 4 2 3 2 4 2 4 4 6 4 3
## [2702] 5 4 2 3 1 4 3 4 4 4 4 2 2 4 3 1 3 2 2 2 2 4 1 1 4 1 3 1 2 3 6 3 3 1 2 4 5
## [2739] 2 3 1 5 3 4 4 5 3 1 1 3 3 2 1 5 4 5 3 2 4 1 1 4 3 1 1 5 3 5 5 6 3 3 6 3 2
## [2776] 5 2 6 3 1 4 5 5 5 4 1 5 2 3 4 3 2 5 5 4 3 6 6 4 2 1 3 5 2 3 2 1 4 5 4 1 1
## [2813] 5 2 4 1 6 4 2 5 3 4 5 5 3 4 6 4 2 1 3 1 1 2 5 2 4 2 6 2 3 2 4 4 3 2 2 4 1
## [2850] 2 4 4 1 2 3 3 3 2 3 6 4 2 3 2 1 2 1 5 6 3 1 3 4 5 5 3 1 3 2 3 2 2 4 4 4 3
## [2887] 1 3 5 2 6 1 5 4 4 1 5 4 3 4 5 4 3 3 1 4 1 1 1 1 2 4 6 5 4 4 5 5 4 3 5 2 5
## [2924] 4 1 1 6 3 2 2 5 4 1 2 5 1 2 2 5 1 2 4 4 2 4 6 2 5 5 1 6 2 3 5 2 3 4 5 3 5
## [2961] 2 4 2 5 3 4 3 4 4 3 2 3 3 2 4 3 4 4 3 3 4 1 1 4 6 3 2 3 3 5 3 1 4 3 4 1 3
## [2998] 1 4 1 5 2 5 2 4 4 2 2 2 2 2 3 3 1 4 2 5 1 4 5 2 5 2 1 2 2 4 4 4 2 3 3 2 2
## [3035] 5 5 1 5 2 2 4 4 5 4 4 5 2 3 4 4 2 4 4 5 1 4 2 4 2 2 3 2 5 1 2 2 3 3 1 3 3
## [3072] 4 5 1 2 1 3 2 2 5 5 4 3 4 2 5 2 2 1 4 4 5 2 2 1 3 6 4 2 1 3 2 5 5 4 4 1 5
## [3109] 1 3 2 4 2 4 3 2 3 5 2 1 2 4 4 1 3 2 5 5 5 5 3 5 5 2 2 4 2 2 3 2 2 5 3 2 2
## [3146] 2 4 4 5 5 3 2 1 2 5 4 5 2 3 5 3 1 4 2 4 3 4 5 3 4 3 5 3 1 1 5 2 2 4 3 1 4
## [3183] 6 4 5 5 2 5 2 3 2 4 4 6 4 3 3 4 5 2 6 3 4 3 4 3 2 2 1 3 1 5 1 4 4 4 3 3 6
## [3220] 4 6 4 4 1 2 5 4 1 4 2 5 4 3 1 4 1 4 4 3 2 3 4 2 5 5 2 4 4 4 4 3 3 3 6 5 2
## [3257] 1 1 5 5 2 3 5 3 1 4 5 1 4 3 1 4 4 2 3 4 3 2 2 4 1 1 4 2 1 2 3 4 5 2 4 1 2
## [3294] 4 1 2 3 1 1 1 5 4 5 2 5 4 4 1 3 4 1 1 2 3 2 5 5 2 5 3 1 5 2 4 1 4 4 3 4 2
## [3331] 2 2 5 1 2 2 2 2 5 1 2 2 5 4 4 2 4 4 4 2 4 2 3 5 2 3 2 1 4 3 1 2 1 3 4 2 1
## [3368] 3 4 4 3 4 2 4 4 5 2 3 3 5 4 4 2 4 3 5 5 4 3 3 4 2 3 3 2 4 4 4 1 4 1 1 3 3
## [3405] 1 5 2 6 1 2 5 2 3 5 5 5 6 1 2 3 2 5 2 6 1 2 4 4 4 6 4 2 2 5 3 5 3 1 5 2 4
## [3442] 3 3 3 3 2 2 3 4 4 2 4 2 2 2 5 4 1 2 2 3 3 1 3 2 5 3 3 4 2 1 1 3 1 4 4 1 3
## [3479] 5 3 3 4 5 4 1 3 3 5 4 4 1 4 4 3 3 2 2 2 2 6 1 4 1 4 4 6 4 4 5 3 3 4 3 6 5
## [3516] 1 4 4 5 2 4 3 5 5 2 1 5 5 1 2 1 5 4 6 1 3 1 4 1 5 3 1 6 2 1 2 2 2 2 3 3 4
## [3553] 4 2 4 5 2 3 5 2 6 5 3 5 1 4 2 6 2 5 6 1 2 4 6 5 3 3 2 4 1 2 2 4 5 4 4 5 4
## [3590] 2 4 3 2 1 1 3 4 1 1 4 2 2 5 2 4 2 4 5 1 4 3 5 2 1 3 5 1 2 3 3 5 1 2 5 1 3
## [3627] 1 1 4 2 1 5 2 1 4 2 4 4 4 3 5 4 3 2 1 3 2 3 1 6 5 5 3 5 6 4 4 6 1 4 4 3 5
## [3664] 2 2 5 2 5 4 4 5 4 1 5 2 3 4 2 4 5 3 2 1 2 5 3 1 2 3 2 1 4 4 5 4 2 3 4 3 1
## [3701] 1 2 4 3 4 2 2 2 2 6 3 2 4 5 1 5 6 3 1 4 6 2 4 3 4 5 1 3 3 3 2 2 4 2 4 2 4
## [3738] 3 3 4 2 4 1 2 1 3 3 4 2 1 5 4 5 4 5 2 5 4 4 4 2 1 5 5 1 3 4 2 4 3 4 5 3 2
## [3775] 6 3 1 2 2 3 2 1 2 6 4 5 2 5 2 1 2 5 3 2 4 1 2 1 1 4 2 4 4 2 5 3 4 5 6 2 3
## [3812] 3 3 5 5 3 3 4 4 5 2 5 5 3 2 2 5 3 5 5 2 5 1 3 1 6 3 5 2 1 2 3 3 4 4 1 4 2
## [3849] 2 5 4 5 3 1 4 5 3 1 1 4 4 4 4 3 3 4 1 2 5 4 2 1 2 4 4 4 4 3 5 5 3 1 2 3 2
## [3886] 3 4 2 4 1 2 3 4 2 2 5 2 1 5 4 1 2 6 1 2 4 4 3 5 6 6 2 4 1 6 3 3 4 2 6 5 3
## [3923] 4 4 2 4 3 4 5 6 2 4 2 4 4 4 5 1 5 5 1 4 1 5 4 1 6 3 1 4 4 5 5 5 2 2 5 5 4
## [3960] 5 4 3 4 6 3 4 3 4 4 3 1 3 3 4 2 2 4 6 5 4 5 5 1 4 5 6 4 4 3 2 3 5 3 1 2 4
## [3997] 4 1 2 2 1 5 4 3 5 2 2 2 1 2 5 4 2 3 1 3 4 4 4 4 2 3 6 4 4 4 2 2 6 5 2 4 3
## [4034] 1 2 2 2 3 2 4 4 3 4 5 5 6 3 1 4 2 5 5 2 6 4 5 1 4 5 4 3 4 5 3 1 4 5 6 1 5
## [4071] 2 5 1 5 4 4 2 4 5 3 5 1 5 2 5 4 2 2 1 2 5 5 2 2 3 5 1 2 1 3 3 3 3 4 4 5 6
## [4108] 5 1 2 2 6 1 3 3 5 3 6 5 6 5 2 5 2 5 6 3 3 4 1 5 2 5 5 4 5 3 4 3 1 1 5 1 5
## [4145] 2 4 4 1 2 5 4 1 1 2 2 5 2 1 5 1 5 4 3 3 5 2 2 6 5 5 5 5 2 2 4 2 5 2 4 5 5
## [4182] 2 5 2 3 3 3 5 2 4 2 3 4 2 5 5 2 4 1 2 2 6 1 1 4 2 2 5 4 1 5 6 5 4 4 1 4 2
## [4219] 2 3 2 1 5 6 2 6 6 6 1 4 4 5 2 4 3 2 1 5 4 2 2 5 5 4 3 4 5 5 1 4 2 4 2 3 5
## [4256] 3 1 3 3 5 4 5 1 1 6 4 5 2 2 2 1 2 2 4 2 1 2 6 2 5 3 1 2 3 3 4 6 2 1 3 1 6
## [4293] 4 3 1 2 5 6 3 5 5 3 5 2 1 4 5 1 5 4 2 2 4 2 1 5 2 2 2 1 4 5 3 1 4 5 4 4 5
## [4330] 3 4 6 4 2 5 4 3 3 1 2 4 6 4 2 1 2 1 6 3 2 5 4 6 4 2 5 3 3 5 5 2 4 2 2 2 2
## [4367] 2 5 5 2 4 6
## 
## $centers
##   mon_bins rec_bins freq_bins
## 1 2.456845 4.694940  2.514881
## 2 1.546137 2.133047  1.566524
## 3 2.753459 1.942138  2.977358
## 4 4.532882 1.663443  4.966151
## 5 1.179666 4.837047  1.178273
## 6 4.687783 2.022624  2.579186
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 1063.0625 1167.3938  988.6088 1482.0754  308.9387  350.2081
## 
## $tot.withinss
## [1] 5360.287
## 
## $betweenss
## [1] 23390.09

df_mod6$cluster

##    [1] 5 4 6 6 5 3 5 1 5 6 4 3 4 4 5 4 1 3 1 2 4 6 3 5 3 2 1 4 3 4 6 1 2 5 4 2 3
##   [38] 3 3 4 4 6 1 5 5 2 1 4 6 4 4 1 3 3 1 4 4 1 2 3 1 4 1 3 1 3 4 4 2 4 4 4 3 6
##   [75] 5 4 4 5 2 4 2 3 1 2 4 5 4 2 1 2 6 4 6 3 1 3 3 3 3 1 4 4 4 4 3 4 4 3 2 4 4
##  [112] 6 4 3 5 4 2 2 1 3 2 2 6 4 4 5 2 5 5 1 3 5 1 2 2 1 5 3 4 4 2 4 1 2 4 4 3 2
##  [149] 4 6 2 2 1 3 4 2 4 4 3 2 3 3 5 5 3 5 2 4 3 6 2 1 4 5 4 1 5 2 4 4 2 3 5 5 3
##  [186] 3 4 2 1 2 1 4 4 1 2 2 2 2 1 1 1 1 4 2 4 4 3 6 1 2 2 2 5 3 3 4 3 2 4 1 4 3
##  [223] 2 2 4 3 4 5 1 1 1 4 4 3 3 2 4 4 4 3 1 3 5 3 6 1 6 3 4 1 1 2 5 1 1 2 4 3 3
##  [260] 2 2 4 6 5 5 2 4 1 4 5 2 6 3 4 3 3 4 4 4 4 4 5 4 3 5 3 1 3 2 3 4 3 2 2 6 4
##  [297] 1 4 4 1 4 3 4 1 3 1 2 2 4 4 3 3 3 1 4 4 3 1 4 5 1 5 1 5 5 3 2 1 4 4 4 4 5
##  [334] 6 4 1 1 2 4 6 3 6 1 1 4 1 1 3 3 3 4 3 4 3 3 2 2 2 1 5 1 1 3 2 5 6 1 2 1 1
##  [371] 2 5 1 1 5 1 3 5 3 6 2 3 2 3 5 6 5 2 1 1 4 5 4 4 4 4 3 4 3 1 3 3 1 1 1 4 5
##  [408] 4 1 2 5 3 1 4 1 5 2 1 5 5 6 4 3 2 5 2 3 2 3 3 5 3 5 2 2 5 4 5 3 6 2 4 6 6
##  [445] 6 1 4 5 3 2 4 1 2 3 3 6 5 2 4 3 4 3 4 2 6 4 1 5 2 1 1 4 4 6 3 3 2 4 5 4 2
##  [482] 4 4 2 3 5 3 4 5 1 5 1 2 1 2 3 2 1 6 2 2 2 3 2 3 1 1 4 5 5 4 1 2 5 5 4 4 4
##  [519] 4 3 2 4 4 3 3 6 3 2 3 3 5 2 3 1 3 3 5 1 1 2 4 4 2 4 1 3 2 5 5 2 5 3 5 3 2
##  [556] 2 4 5 5 1 4 4 2 5 4 6 2 5 4 4 2 2 4 6 2 4 4 5 5 4 2 3 5 3 5 3 4 4 4 1 3 3
##  [593] 5 1 1 4 4 2 5 3 5 5 4 1 4 4 3 4 1 4 2 5 2 2 2 4 6 1 2 5 3 6 1 4 2 5 1 3 1
##  [630] 3 4 2 2 3 3 4 3 2 4 2 4 4 5 3 5 2 2 1 2 5 4 4 4 3 3 2 4 4 1 3 4 3 5 5 5 3
##  [667] 1 5 4 6 5 5 2 5 4 4 3 1 3 3 1 1 5 1 5 2 4 2 1 1 1 2 2 3 2 2 1 5 4 6 4 4 4
##  [704] 4 5 3 2 5 2 2 3 2 1 3 2 5 4 1 2 1 5 5 6 2 5 1 1 5 1 6 5 3 4 3 2 3 3 6 4 2
##  [741] 4 4 2 2 3 6 2 4 1 3 1 2 4 3 1 1 4 1 1 4 1 2 2 2 3 2 2 3 1 3 1 1 2 4 3 2 4
##  [778] 2 1 5 1 2 4 3 1 3 4 5 4 1 1 3 2 5 4 1 3 3 1 1 2 2 2 4 3 5 1 3 2 4 2 5 4 4
##  [815] 1 4 2 2 3 3 3 2 4 2 4 1 2 3 4 2 6 4 5 5 3 6 4 2 3 5 3 1 3 4 5 4 2 1 1 1 3
##  [852] 5 4 5 2 5 1 3 2 4 5 3 1 5 1 6 2 1 3 3 1 2 2 2 4 1 4 5 3 4 5 5 2 3 3 4 3 2
##  [889] 4 4 2 4 3 2 4 2 1 2 1 4 4 3 2 2 3 1 3 5 4 4 2 3 2 5 6 3 1 2 4 1 3 5 4 1 2
##  [926] 3 4 6 2 5 1 5 2 4 2 6 3 2 4 2 4 2 4 5 3 2 2 2 3 4 3 4 1 3 5 5 3 5 4 6 6 6
##  [963] 4 4 3 3 3 2 3 1 2 4 5 6 1 4 2 3 4 1 1 2 4 1 3 5 2 1 4 2 2 5 3 1 5 4 3 5 5
## [1000] 6 5 2 2 3 5 4 6 2 5 4 5 4 3 1 1 1 4 2 5 5 1 5 4 5 3 1 2 6 5 4 3 2 3 1 1 2
## [1037] 4 4 1 2 1 3 4 3 1 5 5 1 6 5 1 1 5 4 4 4 3 2 3 5 6 4 4 4 4 4 2 4 5 3 5 4 6
## [1074] 5 2 3 2 2 4 1 1 2 6 5 4 2 2 5 6 5 3 5 2 3 3 4 2 2 1 1 3 3 6 5 3 2 5 6 2 1
## [1111] 3 5 4 5 4 2 2 3 1 3 3 6 3 4 5 2 5 3 4 1 2 2 3 6 4 4 4 1 1 4 2 2 3 4 4 3 4
## [1148] 3 1 2 1 1 5 4 2 1 2 4 2 5 2 1 4 2 4 4 2 2 3 2 5 2 4 3 2 2 2 1 2 3 5 1 1 1
## [1185] 5 2 3 3 6 2 2 5 4 3 1 4 6 2 1 4 5 3 2 2 1 5 4 4 2 5 2 4 5 2 3 2 4 4 2 4 2
## [1222] 4 3 5 3 2 4 4 3 4 5 6 1 4 6 1 1 5 1 2 3 4 3 2 1 1 2 5 2 2 4 4 4 3 3 1 5 3
## [1259] 2 4 5 4 1 5 3 1 4 3 4 2 5 2 1 4 4 5 4 4 3 5 3 5 4 2 3 1 2 1 5 2 1 5 4 4 2
## [1296] 4 2 5 4 3 4 2 4 5 6 3 5 3 4 2 2 4 2 4 3 5 3 5 5 4 2 4 2 1 3 3 1 4 1 4 3 2
## [1333] 3 3 1 5 6 4 2 5 5 3 3 1 5 4 3 2 4 1 5 6 6 5 3 1 2 2 4 1 3 4 4 4 2 5 6 4 4
## [1370] 3 4 1 5 3 5 3 2 2 1 5 6 4 4 2 5 3 4 6 4 2 2 1 4 1 1 1 6 4 3 1 4 3 4 6 2 5
## [1407] 5 4 3 5 5 4 1 1 5 5 4 6 1 4 4 5 3 4 1 1 1 1 5 2 2 3 4 5 4 2 6 4 2 5 3 4 4
## [1444] 4 3 2 3 4 4 2 5 5 4 6 4 4 5 3 5 4 2 1 4 1 5 5 4 1 3 2 4 3 6 1 5 5 4 2 1 2
## [1481] 1 1 2 5 5 1 5 2 5 3 2 3 4 2 6 4 5 5 5 1 5 3 2 3 3 2 5 4 4 3 4 5 4 3 4 1 4
## [1518] 1 4 5 6 4 6 3 1 3 5 3 4 2 4 4 2 3 4 5 2 4 2 4 1 4 2 5 5 5 1 6 3 3 3 4 3 2
## [1555] 4 1 4 2 5 4 5 1 5 4 4 5 1 6 3 3 4 2 2 3 5 2 1 2 1 4 5 2 2 4 3 1 5 4 2 2 1
## [1592] 1 4 4 2 2 4 4 4 4 4 3 2 3 5 1 3 4 2 2 2 2 5 4 4 4 2 3 4 1 6 4 4 5 2 2 2 3
## [1629] 4 5 4 4 4 4 1 1 3 2 1 4 4 2 2 6 3 4 4 1 3 2 5 4 1 5 4 2 2 2 4 1 2 5 4 5 4
## [1666] 3 3 3 4 3 2 1 2 1 4 4 6 2 5 2 1 1 4 1 4 2 1 4 5 3 4 3 5 1 2 2 4 4 2 2 1 3
## [1703] 1 4 5 4 3 2 4 6 1 4 2 4 2 2 4 3 4 2 4 1 1 1 6 3 6 5 4 2 5 4 5 4 5 3 6 1 5
## [1740] 4 5 4 5 4 4 4 2 4 5 3 4 3 4 3 4 2 3 3 4 3 5 4 3 5 1 4 3 4 4 4 2 3 6 1 3 3
## [1777] 1 1 3 2 2 2 4 3 2 1 4 5 2 1 2 2 4 2 4 1 5 3 4 2 1 1 2 5 2 2 3 2 3 2 2 3 5
## [1814] 4 2 2 4 2 1 2 3 2 4 4 5 3 5 1 3 2 2 5 1 3 4 1 3 2 6 2 4 5 4 4 4 5 4 5 2 4
## [1851] 2 4 1 3 3 3 2 2 3 2 2 4 1 4 3 5 3 1 3 4 3 2 2 3 1 1 6 1 5 5 1 3 3 4 1 3 4
## [1888] 3 2 4 3 1 4 2 2 4 3 3 2 3 1 1 3 3 5 2 4 3 5 6 1 4 6 4 2 2 3 2 2 4 2 3 5 1
## [1925] 3 2 4 5 4 5 1 2 2 2 3 4 5 1 2 2 3 4 5 2 1 2 1 2 2 1 3 4 1 4 3 5 4 2 3 2 5
## [1962] 2 2 1 4 4 4 4 3 3 3 3 2 4 1 4 4 2 3 4 4 1 5 2 4 5 4 1 3 5 6 4 5 3 3 1 4 4
## [1999] 3 4 3 5 4 3 6 3 1 5 1 3 1 3 1 4 1 2 5 5 3 4 1 2 1 4 1 2 2 1 2 5 2 3 1 4 3
## [2036] 5 1 1 3 3 4 4 2 3 3 5 5 1 2 6 4 2 4 2 4 6 1 3 1 3 5 3 5 6 2 5 4 3 1 1 2 1
## [2073] 4 4 2 2 3 4 2 4 5 2 4 1 5 2 1 4 5 2 5 4 5 3 1 3 2 2 6 4 1 2 4 6 3 5 2 3 4
## [2110] 5 3 2 3 1 3 5 1 4 3 2 4 5 4 5 5 1 5 1 5 3 4 1 1 5 4 5 3 3 3 6 4 2 2 6 1 5
## [2147] 4 4 3 3 1 3 5 5 1 1 5 5 5 2 1 5 6 2 6 4 3 3 2 2 2 5 5 4 2 2 6 3 4 4 5 4 2
## [2184] 4 6 2 4 1 3 3 5 1 4 3 5 1 2 5 2 5 2 4 3 1 1 2 3 2 1 1 1 2 3 6 1 2 2 2 5 5
## [2221] 2 1 5 4 1 2 4 4 2 5 5 1 4 3 4 2 5 4 6 4 5 4 4 6 5 4 1 2 1 5 5 3 2 6 5 5 5
## [2258] 3 3 1 1 5 3 4 5 4 3 5 3 1 4 2 2 3 5 2 5 4 4 2 3 2 3 3 2 4 1 5 3 5 4 4 5 5
## [2295] 1 3 2 3 4 5 1 1 2 1 5 2 1 4 3 3 2 2 3 1 2 2 3 1 4 1 4 6 5 3 4 3 4 4 2 4 3
## [2332] 4 1 2 4 4 1 1 5 4 5 4 4 2 5 4 2 4 3 2 2 4 2 4 5 4 4 4 4 3 1 5 2 2 5 5 4 2
## [2369] 4 4 3 2 5 3 5 4 2 2 3 5 4 2 2 3 1 4 3 4 3 1 3 5 5 3 4 3 4 1 2 1 5 2 2 4 1
## [2406] 2 2 3 4 3 2 2 3 6 5 3 5 2 3 2 4 3 2 4 3 4 1 1 1 3 4 3 4 2 3 2 5 1 4 4 1 1
## [2443] 3 1 1 1 2 2 1 3 1 3 2 1 2 3 5 5 2 4 2 5 3 5 6 4 4 2 4 3 2 4 3 3 5 4 5 2 5
## [2480] 2 6 1 4 2 1 4 5 4 5 3 4 4 5 3 1 2 1 5 4 3 3 6 5 5 2 4 2 5 3 5 5 1 3 4 2 2
## [2517] 3 2 3 5 3 2 1 4 4 5 2 4 3 3 2 5 2 3 4 2 1 4 2 2 5 5 1 1 2 6 2 6 4 4 1 2 3
## [2554] 2 1 4 6 3 1 3 5 2 4 4 3 3 4 3 4 4 1 1 6 6 4 5 3 3 5 1 6 4 1 2 3 1 4 3 2 2
## [2591] 4 3 2 3 5 2 4 2 3 5 2 4 1 4 2 4 4 4 4 2 6 3 1 4 5 3 3 4 3 1 1 1 3 1 2 2 1
## [2628] 1 5 5 5 3 5 3 3 6 2 4 4 5 4 5 4 5 1 3 1 1 5 5 5 2 4 3 5 2 1 6 5 5 5 5 6 3
## [2665] 2 4 3 3 4 4 2 2 2 4 3 2 5 6 5 4 2 1 3 3 6 4 4 4 1 2 4 2 3 2 4 2 4 4 6 4 3
## [2702] 5 4 2 3 1 4 3 4 4 4 4 2 2 4 3 1 3 2 2 2 2 4 1 1 4 1 3 1 2 3 6 3 3 1 2 4 5
## [2739] 2 3 1 5 3 4 4 5 3 1 1 3 3 2 1 5 4 5 3 2 4 1 1 4 3 1 1 5 3 5 5 6 3 3 6 3 2
## [2776] 5 2 6 3 1 4 5 5 5 4 1 5 2 3 4 3 2 5 5 4 3 6 6 4 2 1 3 5 2 3 2 1 4 5 4 1 1
## [2813] 5 2 4 1 6 4 2 5 3 4 5 5 3 4 6 4 2 1 3 1 1 2 5 2 4 2 6 2 3 2 4 4 3 2 2 4 1
## [2850] 2 4 4 1 2 3 3 3 2 3 6 4 2 3 2 1 2 1 5 6 3 1 3 4 5 5 3 1 3 2 3 2 2 4 4 4 3
## [2887] 1 3 5 2 6 1 5 4 4 1 5 4 3 4 5 4 3 3 1 4 1 1 1 1 2 4 6 5 4 4 5 5 4 3 5 2 5
## [2924] 4 1 1 6 3 2 2 5 4 1 2 5 1 2 2 5 1 2 4 4 2 4 6 2 5 5 1 6 2 3 5 2 3 4 5 3 5
## [2961] 2 4 2 5 3 4 3 4 4 3 2 3 3 2 4 3 4 4 3 3 4 1 1 4 6 3 2 3 3 5 3 1 4 3 4 1 3
## [2998] 1 4 1 5 2 5 2 4 4 2 2 2 2 2 3 3 1 4 2 5 1 4 5 2 5 2 1 2 2 4 4 4 2 3 3 2 2
## [3035] 5 5 1 5 2 2 4 4 5 4 4 5 2 3 4 4 2 4 4 5 1 4 2 4 2 2 3 2 5 1 2 2 3 3 1 3 3
## [3072] 4 5 1 2 1 3 2 2 5 5 4 3 4 2 5 2 2 1 4 4 5 2 2 1 3 6 4 2 1 3 2 5 5 4 4 1 5
## [3109] 1 3 2 4 2 4 3 2 3 5 2 1 2 4 4 1 3 2 5 5 5 5 3 5 5 2 2 4 2 2 3 2 2 5 3 2 2
## [3146] 2 4 4 5 5 3 2 1 2 5 4 5 2 3 5 3 1 4 2 4 3 4 5 3 4 3 5 3 1 1 5 2 2 4 3 1 4
## [3183] 6 4 5 5 2 5 2 3 2 4 4 6 4 3 3 4 5 2 6 3 4 3 4 3 2 2 1 3 1 5 1 4 4 4 3 3 6
## [3220] 4 6 4 4 1 2 5 4 1 4 2 5 4 3 1 4 1 4 4 3 2 3 4 2 5 5 2 4 4 4 4 3 3 3 6 5 2
## [3257] 1 1 5 5 2 3 5 3 1 4 5 1 4 3 1 4 4 2 3 4 3 2 2 4 1 1 4 2 1 2 3 4 5 2 4 1 2
## [3294] 4 1 2 3 1 1 1 5 4 5 2 5 4 4 1 3 4 1 1 2 3 2 5 5 2 5 3 1 5 2 4 1 4 4 3 4 2
## [3331] 2 2 5 1 2 2 2 2 5 1 2 2 5 4 4 2 4 4 4 2 4 2 3 5 2 3 2 1 4 3 1 2 1 3 4 2 1
## [3368] 3 4 4 3 4 2 4 4 5 2 3 3 5 4 4 2 4 3 5 5 4 3 3 4 2 3 3 2 4 4 4 1 4 1 1 3 3
## [3405] 1 5 2 6 1 2 5 2 3 5 5 5 6 1 2 3 2 5 2 6 1 2 4 4 4 6 4 2 2 5 3 5 3 1 5 2 4
## [3442] 3 3 3 3 2 2 3 4 4 2 4 2 2 2 5 4 1 2 2 3 3 1 3 2 5 3 3 4 2 1 1 3 1 4 4 1 3
## [3479] 5 3 3 4 5 4 1 3 3 5 4 4 1 4 4 3 3 2 2 2 2 6 1 4 1 4 4 6 4 4 5 3 3 4 3 6 5
## [3516] 1 4 4 5 2 4 3 5 5 2 1 5 5 1 2 1 5 4 6 1 3 1 4 1 5 3 1 6 2 1 2 2 2 2 3 3 4
## [3553] 4 2 4 5 2 3 5 2 6 5 3 5 1 4 2 6 2 5 6 1 2 4 6 5 3 3 2 4 1 2 2 4 5 4 4 5 4
## [3590] 2 4 3 2 1 1 3 4 1 1 4 2 2 5 2 4 2 4 5 1 4 3 5 2 1 3 5 1 2 3 3 5 1 2 5 1 3
## [3627] 1 1 4 2 1 5 2 1 4 2 4 4 4 3 5 4 3 2 1 3 2 3 1 6 5 5 3 5 6 4 4 6 1 4 4 3 5
## [3664] 2 2 5 2 5 4 4 5 4 1 5 2 3 4 2 4 5 3 2 1 2 5 3 1 2 3 2 1 4 4 5 4 2 3 4 3 1
## [3701] 1 2 4 3 4 2 2 2 2 6 3 2 4 5 1 5 6 3 1 4 6 2 4 3 4 5 1 3 3 3 2 2 4 2 4 2 4
## [3738] 3 3 4 2 4 1 2 1 3 3 4 2 1 5 4 5 4 5 2 5 4 4 4 2 1 5 5 1 3 4 2 4 3 4 5 3 2
## [3775] 6 3 1 2 2 3 2 1 2 6 4 5 2 5 2 1 2 5 3 2 4 1 2 1 1 4 2 4 4 2 5 3 4 5 6 2 3
## [3812] 3 3 5 5 3 3 4 4 5 2 5 5 3 2 2 5 3 5 5 2 5 1 3 1 6 3 5 2 1 2 3 3 4 4 1 4 2
## [3849] 2 5 4 5 3 1 4 5 3 1 1 4 4 4 4 3 3 4 1 2 5 4 2 1 2 4 4 4 4 3 5 5 3 1 2 3 2
## [3886] 3 4 2 4 1 2 3 4 2 2 5 2 1 5 4 1 2 6 1 2 4 4 3 5 6 6 2 4 1 6 3 3 4 2 6 5 3
## [3923] 4 4 2 4 3 4 5 6 2 4 2 4 4 4 5 1 5 5 1 4 1 5 4 1 6 3 1 4 4 5 5 5 2 2 5 5 4
## [3960] 5 4 3 4 6 3 4 3 4 4 3 1 3 3 4 2 2 4 6 5 4 5 5 1 4 5 6 4 4 3 2 3 5 3 1 2 4
## [3997] 4 1 2 2 1 5 4 3 5 2 2 2 1 2 5 4 2 3 1 3 4 4 4 4 2 3 6 4 4 4 2 2 6 5 2 4 3
## [4034] 1 2 2 2 3 2 4 4 3 4 5 5 6 3 1 4 2 5 5 2 6 4 5 1 4 5 4 3 4 5 3 1 4 5 6 1 5
## [4071] 2 5 1 5 4 4 2 4 5 3 5 1 5 2 5 4 2 2 1 2 5 5 2 2 3 5 1 2 1 3 3 3 3 4 4 5 6
## [4108] 5 1 2 2 6 1 3 3 5 3 6 5 6 5 2 5 2 5 6 3 3 4 1 5 2 5 5 4 5 3 4 3 1 1 5 1 5
## [4145] 2 4 4 1 2 5 4 1 1 2 2 5 2 1 5 1 5 4 3 3 5 2 2 6 5 5 5 5 2 2 4 2 5 2 4 5 5
## [4182] 2 5 2 3 3 3 5 2 4 2 3 4 2 5 5 2 4 1 2 2 6 1 1 4 2 2 5 4 1 5 6 5 4 4 1 4 2
## [4219] 2 3 2 1 5 6 2 6 6 6 1 4 4 5 2 4 3 2 1 5 4 2 2 5 5 4 3 4 5 5 1 4 2 4 2 3 5
## [4256] 3 1 3 3 5 4 5 1 1 6 4 5 2 2 2 1 2 2 4 2 1 2 6 2 5 3 1 2 3 3 4 6 2 1 3 1 6
## [4293] 4 3 1 2 5 6 3 5 5 3 5 2 1 4 5 1 5 4 2 2 4 2 1 5 2 2 2 1 4 5 3 1 4 5 4 4 5
## [4330] 3 4 6 4 2 5 4 3 3 1 2 4 6 4 2 1 2 1 6 3 2 5 4 6 4 2 5 3 3 5 5 2 4 2 2 2 2
## [4367] 2 5 5 2 4 6
## Levels: 1 2 3 4 5 6

res.pca <- prcomp(df_mod6[,c("mon_bins","rec_bins","freq_bins")],  scale = TRUE)
# Coordinates of individuals
ind.coord <- as.data.frame(get_pca_ind(res.pca)$coord)
# Add clusters obtained using the K-means algorithm
ind.coord$cluster <- factor(df_mod6$cluster)

Data inspection

eigenvalue <- round(get_eigenvalue(res.pca), 1)
variance.percent <- eigenvalue$variance.percent
head(eigenvalue)

##       eigenvalue variance.percent cumulative.variance.percent
## Dim.1        2.1             71.5                        71.5
## Dim.2        0.6             20.5                        92.0
## Dim.3        0.2              8.0                       100.0

ggscatter(
  ind.coord, x = "Dim.1", y = "Dim.2", 
  color = "cluster", palette = "npg", ellipse = TRUE, ellipse.type = "convex",
  size = 1.5,  legend = "right", ggtheme = theme_bw(),
  xlab = paste0("Dim 1 (", variance.percent[1], "% )" ),
  ylab = paste0("Dim 2 (", variance.percent[2], "% )" )
) +  stat_mean(aes(color = cluster), size = 4)

Percentage of variance explained by dimensions

eigenvalue <- round(get_eigenvalue(res.pca), 1)
variance.percent <- eigenvalue$variance.percent
head(eigenvalue)

##       eigenvalue variance.percent cumulative.variance.percent
## Dim.1        2.1             71.5                        71.5
## Dim.2        0.6             20.5                        92.0
## Dim.3        0.2              8.0                       100.0

Visualize k-means clusters

Color individuals according to the cluster groups

Add concentration ellipses

Add cluster centroid using the stat_mean() [ggpubr] R function

ggscatter(
  ind.coord, x = "Dim.1", y = "Dim.2", 
  color = "cluster", palette = "npg", ellipse = TRUE, ellipse.type = "convex",
   size = 1.5,  legend = "right", ggtheme = theme_bw(),
  xlab = paste0("Dim 1 (", variance.percent[1], "% )" ),
  ylab = paste0("Dim 2 (", variance.percent[2], "% )" )
) +
  stat_mean(aes(color = cluster), size = 4)

library(ggplot2)
head(k_mod6)

## $cluster
##    [1] 5 4 6 6 5 3 5 1 5 6 4 3 4 4 5 4 1 3 1 2 4 6 3 5 3 2 1 4 3 4 6 1 2 5 4 2 3
##   [38] 3 3 4 4 6 1 5 5 2 1 4 6 4 4 1 3 3 1 4 4 1 2 3 1 4 1 3 1 3 4 4 2 4 4 4 3 6
##   [75] 5 4 4 5 2 4 2 3 1 2 4 5 4 2 1 2 6 4 6 3 1 3 3 3 3 1 4 4 4 4 3 4 4 3 2 4 4
##  [112] 6 4 3 5 4 2 2 1 3 2 2 6 4 4 5 2 5 5 1 3 5 1 2 2 1 5 3 4 4 2 4 1 2 4 4 3 2
##  [149] 4 6 2 2 1 3 4 2 4 4 3 2 3 3 5 5 3 5 2 4 3 6 2 1 4 5 4 1 5 2 4 4 2 3 5 5 3
##  [186] 3 4 2 1 2 1 4 4 1 2 2 2 2 1 1 1 1 4 2 4 4 3 6 1 2 2 2 5 3 3 4 3 2 4 1 4 3
##  [223] 2 2 4 3 4 5 1 1 1 4 4 3 3 2 4 4 4 3 1 3 5 3 6 1 6 3 4 1 1 2 5 1 1 2 4 3 3
##  [260] 2 2 4 6 5 5 2 4 1 4 5 2 6 3 4 3 3 4 4 4 4 4 5 4 3 5 3 1 3 2 3 4 3 2 2 6 4
##  [297] 1 4 4 1 4 3 4 1 3 1 2 2 4 4 3 3 3 1 4 4 3 1 4 5 1 5 1 5 5 3 2 1 4 4 4 4 5
##  [334] 6 4 1 1 2 4 6 3 6 1 1 4 1 1 3 3 3 4 3 4 3 3 2 2 2 1 5 1 1 3 2 5 6 1 2 1 1
##  [371] 2 5 1 1 5 1 3 5 3 6 2 3 2 3 5 6 5 2 1 1 4 5 4 4 4 4 3 4 3 1 3 3 1 1 1 4 5
##  [408] 4 1 2 5 3 1 4 1 5 2 1 5 5 6 4 3 2 5 2 3 2 3 3 5 3 5 2 2 5 4 5 3 6 2 4 6 6
##  [445] 6 1 4 5 3 2 4 1 2 3 3 6 5 2 4 3 4 3 4 2 6 4 1 5 2 1 1 4 4 6 3 3 2 4 5 4 2
##  [482] 4 4 2 3 5 3 4 5 1 5 1 2 1 2 3 2 1 6 2 2 2 3 2 3 1 1 4 5 5 4 1 2 5 5 4 4 4
##  [519] 4 3 2 4 4 3 3 6 3 2 3 3 5 2 3 1 3 3 5 1 1 2 4 4 2 4 1 3 2 5 5 2 5 3 5 3 2
##  [556] 2 4 5 5 1 4 4 2 5 4 6 2 5 4 4 2 2 4 6 2 4 4 5 5 4 2 3 5 3 5 3 4 4 4 1 3 3
##  [593] 5 1 1 4 4 2 5 3 5 5 4 1 4 4 3 4 1 4 2 5 2 2 2 4 6 1 2 5 3 6 1 4 2 5 1 3 1
##  [630] 3 4 2 2 3 3 4 3 2 4 2 4 4 5 3 5 2 2 1 2 5 4 4 4 3 3 2 4 4 1 3 4 3 5 5 5 3
##  [667] 1 5 4 6 5 5 2 5 4 4 3 1 3 3 1 1 5 1 5 2 4 2 1 1 1 2 2 3 2 2 1 5 4 6 4 4 4
##  [704] 4 5 3 2 5 2 2 3 2 1 3 2 5 4 1 2 1 5 5 6 2 5 1 1 5 1 6 5 3 4 3 2 3 3 6 4 2
##  [741] 4 4 2 2 3 6 2 4 1 3 1 2 4 3 1 1 4 1 1 4 1 2 2 2 3 2 2 3 1 3 1 1 2 4 3 2 4
##  [778] 2 1 5 1 2 4 3 1 3 4 5 4 1 1 3 2 5 4 1 3 3 1 1 2 2 2 4 3 5 1 3 2 4 2 5 4 4
##  [815] 1 4 2 2 3 3 3 2 4 2 4 1 2 3 4 2 6 4 5 5 3 6 4 2 3 5 3 1 3 4 5 4 2 1 1 1 3
##  [852] 5 4 5 2 5 1 3 2 4 5 3 1 5 1 6 2 1 3 3 1 2 2 2 4 1 4 5 3 4 5 5 2 3 3 4 3 2
##  [889] 4 4 2 4 3 2 4 2 1 2 1 4 4 3 2 2 3 1 3 5 4 4 2 3 2 5 6 3 1 2 4 1 3 5 4 1 2
##  [926] 3 4 6 2 5 1 5 2 4 2 6 3 2 4 2 4 2 4 5 3 2 2 2 3 4 3 4 1 3 5 5 3 5 4 6 6 6
##  [963] 4 4 3 3 3 2 3 1 2 4 5 6 1 4 2 3 4 1 1 2 4 1 3 5 2 1 4 2 2 5 3 1 5 4 3 5 5
## [1000] 6 5 2 2 3 5 4 6 2 5 4 5 4 3 1 1 1 4 2 5 5 1 5 4 5 3 1 2 6 5 4 3 2 3 1 1 2
## [1037] 4 4 1 2 1 3 4 3 1 5 5 1 6 5 1 1 5 4 4 4 3 2 3 5 6 4 4 4 4 4 2 4 5 3 5 4 6
## [1074] 5 2 3 2 2 4 1 1 2 6 5 4 2 2 5 6 5 3 5 2 3 3 4 2 2 1 1 3 3 6 5 3 2 5 6 2 1
## [1111] 3 5 4 5 4 2 2 3 1 3 3 6 3 4 5 2 5 3 4 1 2 2 3 6 4 4 4 1 1 4 2 2 3 4 4 3 4
## [1148] 3 1 2 1 1 5 4 2 1 2 4 2 5 2 1 4 2 4 4 2 2 3 2 5 2 4 3 2 2 2 1 2 3 5 1 1 1
## [1185] 5 2 3 3 6 2 2 5 4 3 1 4 6 2 1 4 5 3 2 2 1 5 4 4 2 5 2 4 5 2 3 2 4 4 2 4 2
## [1222] 4 3 5 3 2 4 4 3 4 5 6 1 4 6 1 1 5 1 2 3 4 3 2 1 1 2 5 2 2 4 4 4 3 3 1 5 3
## [1259] 2 4 5 4 1 5 3 1 4 3 4 2 5 2 1 4 4 5 4 4 3 5 3 5 4 2 3 1 2 1 5 2 1 5 4 4 2
## [1296] 4 2 5 4 3 4 2 4 5 6 3 5 3 4 2 2 4 2 4 3 5 3 5 5 4 2 4 2 1 3 3 1 4 1 4 3 2
## [1333] 3 3 1 5 6 4 2 5 5 3 3 1 5 4 3 2 4 1 5 6 6 5 3 1 2 2 4 1 3 4 4 4 2 5 6 4 4
## [1370] 3 4 1 5 3 5 3 2 2 1 5 6 4 4 2 5 3 4 6 4 2 2 1 4 1 1 1 6 4 3 1 4 3 4 6 2 5
## [1407] 5 4 3 5 5 4 1 1 5 5 4 6 1 4 4 5 3 4 1 1 1 1 5 2 2 3 4 5 4 2 6 4 2 5 3 4 4
## [1444] 4 3 2 3 4 4 2 5 5 4 6 4 4 5 3 5 4 2 1 4 1 5 5 4 1 3 2 4 3 6 1 5 5 4 2 1 2
## [1481] 1 1 2 5 5 1 5 2 5 3 2 3 4 2 6 4 5 5 5 1 5 3 2 3 3 2 5 4 4 3 4 5 4 3 4 1 4
## [1518] 1 4 5 6 4 6 3 1 3 5 3 4 2 4 4 2 3 4 5 2 4 2 4 1 4 2 5 5 5 1 6 3 3 3 4 3 2
## [1555] 4 1 4 2 5 4 5 1 5 4 4 5 1 6 3 3 4 2 2 3 5 2 1 2 1 4 5 2 2 4 3 1 5 4 2 2 1
## [1592] 1 4 4 2 2 4 4 4 4 4 3 2 3 5 1 3 4 2 2 2 2 5 4 4 4 2 3 4 1 6 4 4 5 2 2 2 3
## [1629] 4 5 4 4 4 4 1 1 3 2 1 4 4 2 2 6 3 4 4 1 3 2 5 4 1 5 4 2 2 2 4 1 2 5 4 5 4
## [1666] 3 3 3 4 3 2 1 2 1 4 4 6 2 5 2 1 1 4 1 4 2 1 4 5 3 4 3 5 1 2 2 4 4 2 2 1 3
## [1703] 1 4 5 4 3 2 4 6 1 4 2 4 2 2 4 3 4 2 4 1 1 1 6 3 6 5 4 2 5 4 5 4 5 3 6 1 5
## [1740] 4 5 4 5 4 4 4 2 4 5 3 4 3 4 3 4 2 3 3 4 3 5 4 3 5 1 4 3 4 4 4 2 3 6 1 3 3
## [1777] 1 1 3 2 2 2 4 3 2 1 4 5 2 1 2 2 4 2 4 1 5 3 4 2 1 1 2 5 2 2 3 2 3 2 2 3 5
## [1814] 4 2 2 4 2 1 2 3 2 4 4 5 3 5 1 3 2 2 5 1 3 4 1 3 2 6 2 4 5 4 4 4 5 4 5 2 4
## [1851] 2 4 1 3 3 3 2 2 3 2 2 4 1 4 3 5 3 1 3 4 3 2 2 3 1 1 6 1 5 5 1 3 3 4 1 3 4
## [1888] 3 2 4 3 1 4 2 2 4 3 3 2 3 1 1 3 3 5 2 4 3 5 6 1 4 6 4 2 2 3 2 2 4 2 3 5 1
## [1925] 3 2 4 5 4 5 1 2 2 2 3 4 5 1 2 2 3 4 5 2 1 2 1 2 2 1 3 4 1 4 3 5 4 2 3 2 5
## [1962] 2 2 1 4 4 4 4 3 3 3 3 2 4 1 4 4 2 3 4 4 1 5 2 4 5 4 1 3 5 6 4 5 3 3 1 4 4
## [1999] 3 4 3 5 4 3 6 3 1 5 1 3 1 3 1 4 1 2 5 5 3 4 1 2 1 4 1 2 2 1 2 5 2 3 1 4 3
## [2036] 5 1 1 3 3 4 4 2 3 3 5 5 1 2 6 4 2 4 2 4 6 1 3 1 3 5 3 5 6 2 5 4 3 1 1 2 1
## [2073] 4 4 2 2 3 4 2 4 5 2 4 1 5 2 1 4 5 2 5 4 5 3 1 3 2 2 6 4 1 2 4 6 3 5 2 3 4
## [2110] 5 3 2 3 1 3 5 1 4 3 2 4 5 4 5 5 1 5 1 5 3 4 1 1 5 4 5 3 3 3 6 4 2 2 6 1 5
## [2147] 4 4 3 3 1 3 5 5 1 1 5 5 5 2 1 5 6 2 6 4 3 3 2 2 2 5 5 4 2 2 6 3 4 4 5 4 2
## [2184] 4 6 2 4 1 3 3 5 1 4 3 5 1 2 5 2 5 2 4 3 1 1 2 3 2 1 1 1 2 3 6 1 2 2 2 5 5
## [2221] 2 1 5 4 1 2 4 4 2 5 5 1 4 3 4 2 5 4 6 4 5 4 4 6 5 4 1 2 1 5 5 3 2 6 5 5 5
## [2258] 3 3 1 1 5 3 4 5 4 3 5 3 1 4 2 2 3 5 2 5 4 4 2 3 2 3 3 2 4 1 5 3 5 4 4 5 5
## [2295] 1 3 2 3 4 5 1 1 2 1 5 2 1 4 3 3 2 2 3 1 2 2 3 1 4 1 4 6 5 3 4 3 4 4 2 4 3
## [2332] 4 1 2 4 4 1 1 5 4 5 4 4 2 5 4 2 4 3 2 2 4 2 4 5 4 4 4 4 3 1 5 2 2 5 5 4 2
## [2369] 4 4 3 2 5 3 5 4 2 2 3 5 4 2 2 3 1 4 3 4 3 1 3 5 5 3 4 3 4 1 2 1 5 2 2 4 1
## [2406] 2 2 3 4 3 2 2 3 6 5 3 5 2 3 2 4 3 2 4 3 4 1 1 1 3 4 3 4 2 3 2 5 1 4 4 1 1
## [2443] 3 1 1 1 2 2 1 3 1 3 2 1 2 3 5 5 2 4 2 5 3 5 6 4 4 2 4 3 2 4 3 3 5 4 5 2 5
## [2480] 2 6 1 4 2 1 4 5 4 5 3 4 4 5 3 1 2 1 5 4 3 3 6 5 5 2 4 2 5 3 5 5 1 3 4 2 2
## [2517] 3 2 3 5 3 2 1 4 4 5 2 4 3 3 2 5 2 3 4 2 1 4 2 2 5 5 1 1 2 6 2 6 4 4 1 2 3
## [2554] 2 1 4 6 3 1 3 5 2 4 4 3 3 4 3 4 4 1 1 6 6 4 5 3 3 5 1 6 4 1 2 3 1 4 3 2 2
## [2591] 4 3 2 3 5 2 4 2 3 5 2 4 1 4 2 4 4 4 4 2 6 3 1 4 5 3 3 4 3 1 1 1 3 1 2 2 1
## [2628] 1 5 5 5 3 5 3 3 6 2 4 4 5 4 5 4 5 1 3 1 1 5 5 5 2 4 3 5 2 1 6 5 5 5 5 6 3
## [2665] 2 4 3 3 4 4 2 2 2 4 3 2 5 6 5 4 2 1 3 3 6 4 4 4 1 2 4 2 3 2 4 2 4 4 6 4 3
## [2702] 5 4 2 3 1 4 3 4 4 4 4 2 2 4 3 1 3 2 2 2 2 4 1 1 4 1 3 1 2 3 6 3 3 1 2 4 5
## [2739] 2 3 1 5 3 4 4 5 3 1 1 3 3 2 1 5 4 5 3 2 4 1 1 4 3 1 1 5 3 5 5 6 3 3 6 3 2
## [2776] 5 2 6 3 1 4 5 5 5 4 1 5 2 3 4 3 2 5 5 4 3 6 6 4 2 1 3 5 2 3 2 1 4 5 4 1 1
## [2813] 5 2 4 1 6 4 2 5 3 4 5 5 3 4 6 4 2 1 3 1 1 2 5 2 4 2 6 2 3 2 4 4 3 2 2 4 1
## [2850] 2 4 4 1 2 3 3 3 2 3 6 4 2 3 2 1 2 1 5 6 3 1 3 4 5 5 3 1 3 2 3 2 2 4 4 4 3
## [2887] 1 3 5 2 6 1 5 4 4 1 5 4 3 4 5 4 3 3 1 4 1 1 1 1 2 4 6 5 4 4 5 5 4 3 5 2 5
## [2924] 4 1 1 6 3 2 2 5 4 1 2 5 1 2 2 5 1 2 4 4 2 4 6 2 5 5 1 6 2 3 5 2 3 4 5 3 5
## [2961] 2 4 2 5 3 4 3 4 4 3 2 3 3 2 4 3 4 4 3 3 4 1 1 4 6 3 2 3 3 5 3 1 4 3 4 1 3
## [2998] 1 4 1 5 2 5 2 4 4 2 2 2 2 2 3 3 1 4 2 5 1 4 5 2 5 2 1 2 2 4 4 4 2 3 3 2 2
## [3035] 5 5 1 5 2 2 4 4 5 4 4 5 2 3 4 4 2 4 4 5 1 4 2 4 2 2 3 2 5 1 2 2 3 3 1 3 3
## [3072] 4 5 1 2 1 3 2 2 5 5 4 3 4 2 5 2 2 1 4 4 5 2 2 1 3 6 4 2 1 3 2 5 5 4 4 1 5
## [3109] 1 3 2 4 2 4 3 2 3 5 2 1 2 4 4 1 3 2 5 5 5 5 3 5 5 2 2 4 2 2 3 2 2 5 3 2 2
## [3146] 2 4 4 5 5 3 2 1 2 5 4 5 2 3 5 3 1 4 2 4 3 4 5 3 4 3 5 3 1 1 5 2 2 4 3 1 4
## [3183] 6 4 5 5 2 5 2 3 2 4 4 6 4 3 3 4 5 2 6 3 4 3 4 3 2 2 1 3 1 5 1 4 4 4 3 3 6
## [3220] 4 6 4 4 1 2 5 4 1 4 2 5 4 3 1 4 1 4 4 3 2 3 4 2 5 5 2 4 4 4 4 3 3 3 6 5 2
## [3257] 1 1 5 5 2 3 5 3 1 4 5 1 4 3 1 4 4 2 3 4 3 2 2 4 1 1 4 2 1 2 3 4 5 2 4 1 2
## [3294] 4 1 2 3 1 1 1 5 4 5 2 5 4 4 1 3 4 1 1 2 3 2 5 5 2 5 3 1 5 2 4 1 4 4 3 4 2
## [3331] 2 2 5 1 2 2 2 2 5 1 2 2 5 4 4 2 4 4 4 2 4 2 3 5 2 3 2 1 4 3 1 2 1 3 4 2 1
## [3368] 3 4 4 3 4 2 4 4 5 2 3 3 5 4 4 2 4 3 5 5 4 3 3 4 2 3 3 2 4 4 4 1 4 1 1 3 3
## [3405] 1 5 2 6 1 2 5 2 3 5 5 5 6 1 2 3 2 5 2 6 1 2 4 4 4 6 4 2 2 5 3 5 3 1 5 2 4
## [3442] 3 3 3 3 2 2 3 4 4 2 4 2 2 2 5 4 1 2 2 3 3 1 3 2 5 3 3 4 2 1 1 3 1 4 4 1 3
## [3479] 5 3 3 4 5 4 1 3 3 5 4 4 1 4 4 3 3 2 2 2 2 6 1 4 1 4 4 6 4 4 5 3 3 4 3 6 5
## [3516] 1 4 4 5 2 4 3 5 5 2 1 5 5 1 2 1 5 4 6 1 3 1 4 1 5 3 1 6 2 1 2 2 2 2 3 3 4
## [3553] 4 2 4 5 2 3 5 2 6 5 3 5 1 4 2 6 2 5 6 1 2 4 6 5 3 3 2 4 1 2 2 4 5 4 4 5 4
## [3590] 2 4 3 2 1 1 3 4 1 1 4 2 2 5 2 4 2 4 5 1 4 3 5 2 1 3 5 1 2 3 3 5 1 2 5 1 3
## [3627] 1 1 4 2 1 5 2 1 4 2 4 4 4 3 5 4 3 2 1 3 2 3 1 6 5 5 3 5 6 4 4 6 1 4 4 3 5
## [3664] 2 2 5 2 5 4 4 5 4 1 5 2 3 4 2 4 5 3 2 1 2 5 3 1 2 3 2 1 4 4 5 4 2 3 4 3 1
## [3701] 1 2 4 3 4 2 2 2 2 6 3 2 4 5 1 5 6 3 1 4 6 2 4 3 4 5 1 3 3 3 2 2 4 2 4 2 4
## [3738] 3 3 4 2 4 1 2 1 3 3 4 2 1 5 4 5 4 5 2 5 4 4 4 2 1 5 5 1 3 4 2 4 3 4 5 3 2
## [3775] 6 3 1 2 2 3 2 1 2 6 4 5 2 5 2 1 2 5 3 2 4 1 2 1 1 4 2 4 4 2 5 3 4 5 6 2 3
## [3812] 3 3 5 5 3 3 4 4 5 2 5 5 3 2 2 5 3 5 5 2 5 1 3 1 6 3 5 2 1 2 3 3 4 4 1 4 2
## [3849] 2 5 4 5 3 1 4 5 3 1 1 4 4 4 4 3 3 4 1 2 5 4 2 1 2 4 4 4 4 3 5 5 3 1 2 3 2
## [3886] 3 4 2 4 1 2 3 4 2 2 5 2 1 5 4 1 2 6 1 2 4 4 3 5 6 6 2 4 1 6 3 3 4 2 6 5 3
## [3923] 4 4 2 4 3 4 5 6 2 4 2 4 4 4 5 1 5 5 1 4 1 5 4 1 6 3 1 4 4 5 5 5 2 2 5 5 4
## [3960] 5 4 3 4 6 3 4 3 4 4 3 1 3 3 4 2 2 4 6 5 4 5 5 1 4 5 6 4 4 3 2 3 5 3 1 2 4
## [3997] 4 1 2 2 1 5 4 3 5 2 2 2 1 2 5 4 2 3 1 3 4 4 4 4 2 3 6 4 4 4 2 2 6 5 2 4 3
## [4034] 1 2 2 2 3 2 4 4 3 4 5 5 6 3 1 4 2 5 5 2 6 4 5 1 4 5 4 3 4 5 3 1 4 5 6 1 5
## [4071] 2 5 1 5 4 4 2 4 5 3 5 1 5 2 5 4 2 2 1 2 5 5 2 2 3 5 1 2 1 3 3 3 3 4 4 5 6
## [4108] 5 1 2 2 6 1 3 3 5 3 6 5 6 5 2 5 2 5 6 3 3 4 1 5 2 5 5 4 5 3 4 3 1 1 5 1 5
## [4145] 2 4 4 1 2 5 4 1 1 2 2 5 2 1 5 1 5 4 3 3 5 2 2 6 5 5 5 5 2 2 4 2 5 2 4 5 5
## [4182] 2 5 2 3 3 3 5 2 4 2 3 4 2 5 5 2 4 1 2 2 6 1 1 4 2 2 5 4 1 5 6 5 4 4 1 4 2
## [4219] 2 3 2 1 5 6 2 6 6 6 1 4 4 5 2 4 3 2 1 5 4 2 2 5 5 4 3 4 5 5 1 4 2 4 2 3 5
## [4256] 3 1 3 3 5 4 5 1 1 6 4 5 2 2 2 1 2 2 4 2 1 2 6 2 5 3 1 2 3 3 4 6 2 1 3 1 6
## [4293] 4 3 1 2 5 6 3 5 5 3 5 2 1 4 5 1 5 4 2 2 4 2 1 5 2 2 2 1 4 5 3 1 4 5 4 4 5
## [4330] 3 4 6 4 2 5 4 3 3 1 2 4 6 4 2 1 2 1 6 3 2 5 4 6 4 2 5 3 3 5 5 2 4 2 2 2 2
## [4367] 2 5 5 2 4 6
## 
## $centers
##   mon_bins rec_bins freq_bins
## 1 2.456845 4.694940  2.514881
## 2 1.546137 2.133047  1.566524
## 3 2.753459 1.942138  2.977358
## 4 4.532882 1.663443  4.966151
## 5 1.179666 4.837047  1.178273
## 6 4.687783 2.022624  2.579186
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 1063.0625 1167.3938  988.6088 1482.0754  308.9387  350.2081
## 
## $tot.withinss
## [1] 5360.287
## 
## $betweenss
## [1] 23390.09

head(df_mod6)

##   mon_bins rec_bins freq_bins cluster
## 1        1        5         1       5
## 2        5        1         5       4
## 3        4        3         2       6
## 4        4        2         3       6
## 5        2        5         1       5
## 6        3        2         4       3

library(plotly)

## Warning: package 'plotly' was built under R version 4.0.5

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following objects are masked from 'package:plyr':
## 
##     arrange, mutate, rename, summarise

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

head(df_mod6)

##   mon_bins rec_bins freq_bins cluster
## 1        1        5         1       5
## 2        5        1         5       4
## 3        4        3         2       6
## 4        4        2         3       6
## 5        2        5         1       5
## 6        3        2         4       3

nrow(df_mod6)

## [1] 4372

df_mod6$cluster

##    [1] 5 4 6 6 5 3 5 1 5 6 4 3 4 4 5 4 1 3 1 2 4 6 3 5 3 2 1 4 3 4 6 1 2 5 4 2 3
##   [38] 3 3 4 4 6 1 5 5 2 1 4 6 4 4 1 3 3 1 4 4 1 2 3 1 4 1 3 1 3 4 4 2 4 4 4 3 6
##   [75] 5 4 4 5 2 4 2 3 1 2 4 5 4 2 1 2 6 4 6 3 1 3 3 3 3 1 4 4 4 4 3 4 4 3 2 4 4
##  [112] 6 4 3 5 4 2 2 1 3 2 2 6 4 4 5 2 5 5 1 3 5 1 2 2 1 5 3 4 4 2 4 1 2 4 4 3 2
##  [149] 4 6 2 2 1 3 4 2 4 4 3 2 3 3 5 5 3 5 2 4 3 6 2 1 4 5 4 1 5 2 4 4 2 3 5 5 3
##  [186] 3 4 2 1 2 1 4 4 1 2 2 2 2 1 1 1 1 4 2 4 4 3 6 1 2 2 2 5 3 3 4 3 2 4 1 4 3
##  [223] 2 2 4 3 4 5 1 1 1 4 4 3 3 2 4 4 4 3 1 3 5 3 6 1 6 3 4 1 1 2 5 1 1 2 4 3 3
##  [260] 2 2 4 6 5 5 2 4 1 4 5 2 6 3 4 3 3 4 4 4 4 4 5 4 3 5 3 1 3 2 3 4 3 2 2 6 4
##  [297] 1 4 4 1 4 3 4 1 3 1 2 2 4 4 3 3 3 1 4 4 3 1 4 5 1 5 1 5 5 3 2 1 4 4 4 4 5
##  [334] 6 4 1 1 2 4 6 3 6 1 1 4 1 1 3 3 3 4 3 4 3 3 2 2 2 1 5 1 1 3 2 5 6 1 2 1 1
##  [371] 2 5 1 1 5 1 3 5 3 6 2 3 2 3 5 6 5 2 1 1 4 5 4 4 4 4 3 4 3 1 3 3 1 1 1 4 5
##  [408] 4 1 2 5 3 1 4 1 5 2 1 5 5 6 4 3 2 5 2 3 2 3 3 5 3 5 2 2 5 4 5 3 6 2 4 6 6
##  [445] 6 1 4 5 3 2 4 1 2 3 3 6 5 2 4 3 4 3 4 2 6 4 1 5 2 1 1 4 4 6 3 3 2 4 5 4 2
##  [482] 4 4 2 3 5 3 4 5 1 5 1 2 1 2 3 2 1 6 2 2 2 3 2 3 1 1 4 5 5 4 1 2 5 5 4 4 4
##  [519] 4 3 2 4 4 3 3 6 3 2 3 3 5 2 3 1 3 3 5 1 1 2 4 4 2 4 1 3 2 5 5 2 5 3 5 3 2
##  [556] 2 4 5 5 1 4 4 2 5 4 6 2 5 4 4 2 2 4 6 2 4 4 5 5 4 2 3 5 3 5 3 4 4 4 1 3 3
##  [593] 5 1 1 4 4 2 5 3 5 5 4 1 4 4 3 4 1 4 2 5 2 2 2 4 6 1 2 5 3 6 1 4 2 5 1 3 1
##  [630] 3 4 2 2 3 3 4 3 2 4 2 4 4 5 3 5 2 2 1 2 5 4 4 4 3 3 2 4 4 1 3 4 3 5 5 5 3
##  [667] 1 5 4 6 5 5 2 5 4 4 3 1 3 3 1 1 5 1 5 2 4 2 1 1 1 2 2 3 2 2 1 5 4 6 4 4 4
##  [704] 4 5 3 2 5 2 2 3 2 1 3 2 5 4 1 2 1 5 5 6 2 5 1 1 5 1 6 5 3 4 3 2 3 3 6 4 2
##  [741] 4 4 2 2 3 6 2 4 1 3 1 2 4 3 1 1 4 1 1 4 1 2 2 2 3 2 2 3 1 3 1 1 2 4 3 2 4
##  [778] 2 1 5 1 2 4 3 1 3 4 5 4 1 1 3 2 5 4 1 3 3 1 1 2 2 2 4 3 5 1 3 2 4 2 5 4 4
##  [815] 1 4 2 2 3 3 3 2 4 2 4 1 2 3 4 2 6 4 5 5 3 6 4 2 3 5 3 1 3 4 5 4 2 1 1 1 3
##  [852] 5 4 5 2 5 1 3 2 4 5 3 1 5 1 6 2 1 3 3 1 2 2 2 4 1 4 5 3 4 5 5 2 3 3 4 3 2
##  [889] 4 4 2 4 3 2 4 2 1 2 1 4 4 3 2 2 3 1 3 5 4 4 2 3 2 5 6 3 1 2 4 1 3 5 4 1 2
##  [926] 3 4 6 2 5 1 5 2 4 2 6 3 2 4 2 4 2 4 5 3 2 2 2 3 4 3 4 1 3 5 5 3 5 4 6 6 6
##  [963] 4 4 3 3 3 2 3 1 2 4 5 6 1 4 2 3 4 1 1 2 4 1 3 5 2 1 4 2 2 5 3 1 5 4 3 5 5
## [1000] 6 5 2 2 3 5 4 6 2 5 4 5 4 3 1 1 1 4 2 5 5 1 5 4 5 3 1 2 6 5 4 3 2 3 1 1 2
## [1037] 4 4 1 2 1 3 4 3 1 5 5 1 6 5 1 1 5 4 4 4 3 2 3 5 6 4 4 4 4 4 2 4 5 3 5 4 6
## [1074] 5 2 3 2 2 4 1 1 2 6 5 4 2 2 5 6 5 3 5 2 3 3 4 2 2 1 1 3 3 6 5 3 2 5 6 2 1
## [1111] 3 5 4 5 4 2 2 3 1 3 3 6 3 4 5 2 5 3 4 1 2 2 3 6 4 4 4 1 1 4 2 2 3 4 4 3 4
## [1148] 3 1 2 1 1 5 4 2 1 2 4 2 5 2 1 4 2 4 4 2 2 3 2 5 2 4 3 2 2 2 1 2 3 5 1 1 1
## [1185] 5 2 3 3 6 2 2 5 4 3 1 4 6 2 1 4 5 3 2 2 1 5 4 4 2 5 2 4 5 2 3 2 4 4 2 4 2
## [1222] 4 3 5 3 2 4 4 3 4 5 6 1 4 6 1 1 5 1 2 3 4 3 2 1 1 2 5 2 2 4 4 4 3 3 1 5 3
## [1259] 2 4 5 4 1 5 3 1 4 3 4 2 5 2 1 4 4 5 4 4 3 5 3 5 4 2 3 1 2 1 5 2 1 5 4 4 2
## [1296] 4 2 5 4 3 4 2 4 5 6 3 5 3 4 2 2 4 2 4 3 5 3 5 5 4 2 4 2 1 3 3 1 4 1 4 3 2
## [1333] 3 3 1 5 6 4 2 5 5 3 3 1 5 4 3 2 4 1 5 6 6 5 3 1 2 2 4 1 3 4 4 4 2 5 6 4 4
## [1370] 3 4 1 5 3 5 3 2 2 1 5 6 4 4 2 5 3 4 6 4 2 2 1 4 1 1 1 6 4 3 1 4 3 4 6 2 5
## [1407] 5 4 3 5 5 4 1 1 5 5 4 6 1 4 4 5 3 4 1 1 1 1 5 2 2 3 4 5 4 2 6 4 2 5 3 4 4
## [1444] 4 3 2 3 4 4 2 5 5 4 6 4 4 5 3 5 4 2 1 4 1 5 5 4 1 3 2 4 3 6 1 5 5 4 2 1 2
## [1481] 1 1 2 5 5 1 5 2 5 3 2 3 4 2 6 4 5 5 5 1 5 3 2 3 3 2 5 4 4 3 4 5 4 3 4 1 4
## [1518] 1 4 5 6 4 6 3 1 3 5 3 4 2 4 4 2 3 4 5 2 4 2 4 1 4 2 5 5 5 1 6 3 3 3 4 3 2
## [1555] 4 1 4 2 5 4 5 1 5 4 4 5 1 6 3 3 4 2 2 3 5 2 1 2 1 4 5 2 2 4 3 1 5 4 2 2 1
## [1592] 1 4 4 2 2 4 4 4 4 4 3 2 3 5 1 3 4 2 2 2 2 5 4 4 4 2 3 4 1 6 4 4 5 2 2 2 3
## [1629] 4 5 4 4 4 4 1 1 3 2 1 4 4 2 2 6 3 4 4 1 3 2 5 4 1 5 4 2 2 2 4 1 2 5 4 5 4
## [1666] 3 3 3 4 3 2 1 2 1 4 4 6 2 5 2 1 1 4 1 4 2 1 4 5 3 4 3 5 1 2 2 4 4 2 2 1 3
## [1703] 1 4 5 4 3 2 4 6 1 4 2 4 2 2 4 3 4 2 4 1 1 1 6 3 6 5 4 2 5 4 5 4 5 3 6 1 5
## [1740] 4 5 4 5 4 4 4 2 4 5 3 4 3 4 3 4 2 3 3 4 3 5 4 3 5 1 4 3 4 4 4 2 3 6 1 3 3
## [1777] 1 1 3 2 2 2 4 3 2 1 4 5 2 1 2 2 4 2 4 1 5 3 4 2 1 1 2 5 2 2 3 2 3 2 2 3 5
## [1814] 4 2 2 4 2 1 2 3 2 4 4 5 3 5 1 3 2 2 5 1 3 4 1 3 2 6 2 4 5 4 4 4 5 4 5 2 4
## [1851] 2 4 1 3 3 3 2 2 3 2 2 4 1 4 3 5 3 1 3 4 3 2 2 3 1 1 6 1 5 5 1 3 3 4 1 3 4
## [1888] 3 2 4 3 1 4 2 2 4 3 3 2 3 1 1 3 3 5 2 4 3 5 6 1 4 6 4 2 2 3 2 2 4 2 3 5 1
## [1925] 3 2 4 5 4 5 1 2 2 2 3 4 5 1 2 2 3 4 5 2 1 2 1 2 2 1 3 4 1 4 3 5 4 2 3 2 5
## [1962] 2 2 1 4 4 4 4 3 3 3 3 2 4 1 4 4 2 3 4 4 1 5 2 4 5 4 1 3 5 6 4 5 3 3 1 4 4
## [1999] 3 4 3 5 4 3 6 3 1 5 1 3 1 3 1 4 1 2 5 5 3 4 1 2 1 4 1 2 2 1 2 5 2 3 1 4 3
## [2036] 5 1 1 3 3 4 4 2 3 3 5 5 1 2 6 4 2 4 2 4 6 1 3 1 3 5 3 5 6 2 5 4 3 1 1 2 1
## [2073] 4 4 2 2 3 4 2 4 5 2 4 1 5 2 1 4 5 2 5 4 5 3 1 3 2 2 6 4 1 2 4 6 3 5 2 3 4
## [2110] 5 3 2 3 1 3 5 1 4 3 2 4 5 4 5 5 1 5 1 5 3 4 1 1 5 4 5 3 3 3 6 4 2 2 6 1 5
## [2147] 4 4 3 3 1 3 5 5 1 1 5 5 5 2 1 5 6 2 6 4 3 3 2 2 2 5 5 4 2 2 6 3 4 4 5 4 2
## [2184] 4 6 2 4 1 3 3 5 1 4 3 5 1 2 5 2 5 2 4 3 1 1 2 3 2 1 1 1 2 3 6 1 2 2 2 5 5
## [2221] 2 1 5 4 1 2 4 4 2 5 5 1 4 3 4 2 5 4 6 4 5 4 4 6 5 4 1 2 1 5 5 3 2 6 5 5 5
## [2258] 3 3 1 1 5 3 4 5 4 3 5 3 1 4 2 2 3 5 2 5 4 4 2 3 2 3 3 2 4 1 5 3 5 4 4 5 5
## [2295] 1 3 2 3 4 5 1 1 2 1 5 2 1 4 3 3 2 2 3 1 2 2 3 1 4 1 4 6 5 3 4 3 4 4 2 4 3
## [2332] 4 1 2 4 4 1 1 5 4 5 4 4 2 5 4 2 4 3 2 2 4 2 4 5 4 4 4 4 3 1 5 2 2 5 5 4 2
## [2369] 4 4 3 2 5 3 5 4 2 2 3 5 4 2 2 3 1 4 3 4 3 1 3 5 5 3 4 3 4 1 2 1 5 2 2 4 1
## [2406] 2 2 3 4 3 2 2 3 6 5 3 5 2 3 2 4 3 2 4 3 4 1 1 1 3 4 3 4 2 3 2 5 1 4 4 1 1
## [2443] 3 1 1 1 2 2 1 3 1 3 2 1 2 3 5 5 2 4 2 5 3 5 6 4 4 2 4 3 2 4 3 3 5 4 5 2 5
## [2480] 2 6 1 4 2 1 4 5 4 5 3 4 4 5 3 1 2 1 5 4 3 3 6 5 5 2 4 2 5 3 5 5 1 3 4 2 2
## [2517] 3 2 3 5 3 2 1 4 4 5 2 4 3 3 2 5 2 3 4 2 1 4 2 2 5 5 1 1 2 6 2 6 4 4 1 2 3
## [2554] 2 1 4 6 3 1 3 5 2 4 4 3 3 4 3 4 4 1 1 6 6 4 5 3 3 5 1 6 4 1 2 3 1 4 3 2 2
## [2591] 4 3 2 3 5 2 4 2 3 5 2 4 1 4 2 4 4 4 4 2 6 3 1 4 5 3 3 4 3 1 1 1 3 1 2 2 1
## [2628] 1 5 5 5 3 5 3 3 6 2 4 4 5 4 5 4 5 1 3 1 1 5 5 5 2 4 3 5 2 1 6 5 5 5 5 6 3
## [2665] 2 4 3 3 4 4 2 2 2 4 3 2 5 6 5 4 2 1 3 3 6 4 4 4 1 2 4 2 3 2 4 2 4 4 6 4 3
## [2702] 5 4 2 3 1 4 3 4 4 4 4 2 2 4 3 1 3 2 2 2 2 4 1 1 4 1 3 1 2 3 6 3 3 1 2 4 5
## [2739] 2 3 1 5 3 4 4 5 3 1 1 3 3 2 1 5 4 5 3 2 4 1 1 4 3 1 1 5 3 5 5 6 3 3 6 3 2
## [2776] 5 2 6 3 1 4 5 5 5 4 1 5 2 3 4 3 2 5 5 4 3 6 6 4 2 1 3 5 2 3 2 1 4 5 4 1 1
## [2813] 5 2 4 1 6 4 2 5 3 4 5 5 3 4 6 4 2 1 3 1 1 2 5 2 4 2 6 2 3 2 4 4 3 2 2 4 1
## [2850] 2 4 4 1 2 3 3 3 2 3 6 4 2 3 2 1 2 1 5 6 3 1 3 4 5 5 3 1 3 2 3 2 2 4 4 4 3
## [2887] 1 3 5 2 6 1 5 4 4 1 5 4 3 4 5 4 3 3 1 4 1 1 1 1 2 4 6 5 4 4 5 5 4 3 5 2 5
## [2924] 4 1 1 6 3 2 2 5 4 1 2 5 1 2 2 5 1 2 4 4 2 4 6 2 5 5 1 6 2 3 5 2 3 4 5 3 5
## [2961] 2 4 2 5 3 4 3 4 4 3 2 3 3 2 4 3 4 4 3 3 4 1 1 4 6 3 2 3 3 5 3 1 4 3 4 1 3
## [2998] 1 4 1 5 2 5 2 4 4 2 2 2 2 2 3 3 1 4 2 5 1 4 5 2 5 2 1 2 2 4 4 4 2 3 3 2 2
## [3035] 5 5 1 5 2 2 4 4 5 4 4 5 2 3 4 4 2 4 4 5 1 4 2 4 2 2 3 2 5 1 2 2 3 3 1 3 3
## [3072] 4 5 1 2 1 3 2 2 5 5 4 3 4 2 5 2 2 1 4 4 5 2 2 1 3 6 4 2 1 3 2 5 5 4 4 1 5
## [3109] 1 3 2 4 2 4 3 2 3 5 2 1 2 4 4 1 3 2 5 5 5 5 3 5 5 2 2 4 2 2 3 2 2 5 3 2 2
## [3146] 2 4 4 5 5 3 2 1 2 5 4 5 2 3 5 3 1 4 2 4 3 4 5 3 4 3 5 3 1 1 5 2 2 4 3 1 4
## [3183] 6 4 5 5 2 5 2 3 2 4 4 6 4 3 3 4 5 2 6 3 4 3 4 3 2 2 1 3 1 5 1 4 4 4 3 3 6
## [3220] 4 6 4 4 1 2 5 4 1 4 2 5 4 3 1 4 1 4 4 3 2 3 4 2 5 5 2 4 4 4 4 3 3 3 6 5 2
## [3257] 1 1 5 5 2 3 5 3 1 4 5 1 4 3 1 4 4 2 3 4 3 2 2 4 1 1 4 2 1 2 3 4 5 2 4 1 2
## [3294] 4 1 2 3 1 1 1 5 4 5 2 5 4 4 1 3 4 1 1 2 3 2 5 5 2 5 3 1 5 2 4 1 4 4 3 4 2
## [3331] 2 2 5 1 2 2 2 2 5 1 2 2 5 4 4 2 4 4 4 2 4 2 3 5 2 3 2 1 4 3 1 2 1 3 4 2 1
## [3368] 3 4 4 3 4 2 4 4 5 2 3 3 5 4 4 2 4 3 5 5 4 3 3 4 2 3 3 2 4 4 4 1 4 1 1 3 3
## [3405] 1 5 2 6 1 2 5 2 3 5 5 5 6 1 2 3 2 5 2 6 1 2 4 4 4 6 4 2 2 5 3 5 3 1 5 2 4
## [3442] 3 3 3 3 2 2 3 4 4 2 4 2 2 2 5 4 1 2 2 3 3 1 3 2 5 3 3 4 2 1 1 3 1 4 4 1 3
## [3479] 5 3 3 4 5 4 1 3 3 5 4 4 1 4 4 3 3 2 2 2 2 6 1 4 1 4 4 6 4 4 5 3 3 4 3 6 5
## [3516] 1 4 4 5 2 4 3 5 5 2 1 5 5 1 2 1 5 4 6 1 3 1 4 1 5 3 1 6 2 1 2 2 2 2 3 3 4
## [3553] 4 2 4 5 2 3 5 2 6 5 3 5 1 4 2 6 2 5 6 1 2 4 6 5 3 3 2 4 1 2 2 4 5 4 4 5 4
## [3590] 2 4 3 2 1 1 3 4 1 1 4 2 2 5 2 4 2 4 5 1 4 3 5 2 1 3 5 1 2 3 3 5 1 2 5 1 3
## [3627] 1 1 4 2 1 5 2 1 4 2 4 4 4 3 5 4 3 2 1 3 2 3 1 6 5 5 3 5 6 4 4 6 1 4 4 3 5
## [3664] 2 2 5 2 5 4 4 5 4 1 5 2 3 4 2 4 5 3 2 1 2 5 3 1 2 3 2 1 4 4 5 4 2 3 4 3 1
## [3701] 1 2 4 3 4 2 2 2 2 6 3 2 4 5 1 5 6 3 1 4 6 2 4 3 4 5 1 3 3 3 2 2 4 2 4 2 4
## [3738] 3 3 4 2 4 1 2 1 3 3 4 2 1 5 4 5 4 5 2 5 4 4 4 2 1 5 5 1 3 4 2 4 3 4 5 3 2
## [3775] 6 3 1 2 2 3 2 1 2 6 4 5 2 5 2 1 2 5 3 2 4 1 2 1 1 4 2 4 4 2 5 3 4 5 6 2 3
## [3812] 3 3 5 5 3 3 4 4 5 2 5 5 3 2 2 5 3 5 5 2 5 1 3 1 6 3 5 2 1 2 3 3 4 4 1 4 2
## [3849] 2 5 4 5 3 1 4 5 3 1 1 4 4 4 4 3 3 4 1 2 5 4 2 1 2 4 4 4 4 3 5 5 3 1 2 3 2
## [3886] 3 4 2 4 1 2 3 4 2 2 5 2 1 5 4 1 2 6 1 2 4 4 3 5 6 6 2 4 1 6 3 3 4 2 6 5 3
## [3923] 4 4 2 4 3 4 5 6 2 4 2 4 4 4 5 1 5 5 1 4 1 5 4 1 6 3 1 4 4 5 5 5 2 2 5 5 4
## [3960] 5 4 3 4 6 3 4 3 4 4 3 1 3 3 4 2 2 4 6 5 4 5 5 1 4 5 6 4 4 3 2 3 5 3 1 2 4
## [3997] 4 1 2 2 1 5 4 3 5 2 2 2 1 2 5 4 2 3 1 3 4 4 4 4 2 3 6 4 4 4 2 2 6 5 2 4 3
## [4034] 1 2 2 2 3 2 4 4 3 4 5 5 6 3 1 4 2 5 5 2 6 4 5 1 4 5 4 3 4 5 3 1 4 5 6 1 5
## [4071] 2 5 1 5 4 4 2 4 5 3 5 1 5 2 5 4 2 2 1 2 5 5 2 2 3 5 1 2 1 3 3 3 3 4 4 5 6
## [4108] 5 1 2 2 6 1 3 3 5 3 6 5 6 5 2 5 2 5 6 3 3 4 1 5 2 5 5 4 5 3 4 3 1 1 5 1 5
## [4145] 2 4 4 1 2 5 4 1 1 2 2 5 2 1 5 1 5 4 3 3 5 2 2 6 5 5 5 5 2 2 4 2 5 2 4 5 5
## [4182] 2 5 2 3 3 3 5 2 4 2 3 4 2 5 5 2 4 1 2 2 6 1 1 4 2 2 5 4 1 5 6 5 4 4 1 4 2
## [4219] 2 3 2 1 5 6 2 6 6 6 1 4 4 5 2 4 3 2 1 5 4 2 2 5 5 4 3 4 5 5 1 4 2 4 2 3 5
## [4256] 3 1 3 3 5 4 5 1 1 6 4 5 2 2 2 1 2 2 4 2 1 2 6 2 5 3 1 2 3 3 4 6 2 1 3 1 6
## [4293] 4 3 1 2 5 6 3 5 5 3 5 2 1 4 5 1 5 4 2 2 4 2 1 5 2 2 2 1 4 5 3 1 4 5 4 4 5
## [4330] 3 4 6 4 2 5 4 3 3 1 2 4 6 4 2 1 2 1 6 3 2 5 4 6 4 2 5 3 3 5 5 2 4 2 2 2 2
## [4367] 2 5 5 2 4 6
## Levels: 1 2 3 4 5 6

plot_ly(x=df_mod6$rec_bins, y=df_mod6$freq_bins, z=df_mod6$mon_bins, type="scatter3d", mode="markers", color=df_mod6$cluster)

head(df_mod6,15)

##    mon_bins rec_bins freq_bins cluster
## 1         1        5         1       5
## 2         5        1         5       4
## 3         4        3         2       6
## 4         4        2         3       6
## 5         2        5         1       5
## 6         3        2         4       3
## 7         1        5         1       5
## 8         3        5         3       1
## 9         2        5         1       5
## 10        5        2         3       6
## 11        5        2         5       4
## 12        3        1         2       3
## 13        5        1         5       4
## 14        5        3         5       4
## 15        1        5         1       5

df_cluster1=df_mod6[df_mod6==1,]
nrow(df_cluster1)

## [1] 3971

df_cluster2=df_mod6[df_mod6==2,]
nrow(df_cluster2)

## [1] 4254

df_cluster3=df_mod6[df_mod6==3,]
nrow(df_cluster3)

## [1] 3559

df_cluster4=df_mod6[df_mod6==4,]
nrow(df_cluster4)

## [1] 1678

df_cluster5=df_mod6[df_mod6==5,]
nrow(df_cluster5)

## [1] 3805

df_cluster6=df_mod6[df_mod6==6,]
nrow(df_cluster6)

## [1] 221

#hierarchical clustering

#scaling the variables in hierarchical clustering

df_scale=scale(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],center=TRUE,scale=TRUE)


summary(df_scale)

##     rec_bins         freq_bins          mon_bins      
##  Min.   :-1.1989   Min.   :-1.1800   Min.   :-1.1951  
##  1st Qu.:-1.1989   1st Qu.:-1.1800   1st Qu.:-0.6712  
##  Median :-0.5400   Median :-0.5097   Median :-0.1472  
##  Mean   : 0.0000   Mean   : 0.0000   Mean   : 0.0000  
##  3rd Qu.: 0.7778   3rd Qu.: 0.8310   3rd Qu.: 0.3768  
##  Max.   : 1.4367   Max.   : 1.5014   Max.   : 1.5994

dist_mat <- dist(df_scale, method = 'euclidean')

#plotting dendrogram

hclust_avg <- hclust(dist_mat, method = 'ward.D2')
plot(hclust_avg)

#creating the required number of clusters

member = cutree(hclust_avg,6)

h_clust=rfm_bin
h_clust$cluster=member

#plotting the clusters formed using hierarchical clustering

library(cluster)
res.pca <- prcomp(h_clust[,c("mon_bins","rec_bins","freq_bins")],  scale = TRUE)
# Coordinates of individuals
ind.coord <- as.data.frame(get_pca_ind(res.pca)$coord)
# Add clusters obtained using the K-means algorithm
ind.coord$cluster <- factor(h_clust$cluster)
# Data inspection



ggscatter(
  ind.coord, x = "Dim.1", y = "Dim.2", 
  color = "cluster", palette = "npg", ellipse = TRUE, ellipse.type = "convex",
  size = 1.5,  legend = "right", ggtheme = theme_bw(),
  xlab = paste0("Dim 1 (", variance.percent[1], "% )" ),
  ylab = paste0("Dim 2 (", variance.percent[2], "% )" )
) +
  stat_mean(aes(color = cluster), size = 4)

#shiloutte analysis

df6_scale=data.frame(scale(rfm_bin[,c("mon_bins","rec_bins","freq_bins")],center=TRUE,scale=TRUE))
k_mod6_1=kmeans(df6_scale,centers=6,nstart=25)
k_mod6_1

## K-means clustering with 6 clusters of sizes 829, 872, 1091, 688, 561, 331
## 
## Cluster means:
##      mon_bins   rec_bins   freq_bins
## 1 -0.87489870 -0.3714783 -0.81533013
## 2  1.54976773 -0.8512784  1.36225682
## 3 -0.88392573  1.3279575 -0.83286360
## 4  0.12801777 -0.8655820 -0.11505324
## 5  0.39766913  0.6990949  0.03761136
## 6  0.08183663 -0.5897375  1.37381141
## 
## Clustering vector:
##    [1] 3 2 5 4 3 6 3 5 3 2 2 4 2 2 3 2 3 4 3 1 2 4 5 3 4 4 5 2 5 2 4 5 1 3 2 1 6
##   [38] 5 5 2 2 4 5 3 3 1 5 2 4 2 2 5 5 5 3 2 2 5 1 4 5 2 5 5 3 4 2 2 1 2 2 2 5 5
##   [75] 3 2 2 3 1 2 1 5 3 1 2 3 2 4 5 1 5 2 5 5 5 4 4 4 4 5 2 2 2 2 5 2 2 4 4 2 2
##  [112] 2 2 4 3 2 1 1 3 4 1 1 2 5 2 3 1 3 3 5 4 3 5 1 1 5 3 5 2 2 1 2 3 1 2 2 4 1
##  [149] 2 5 1 1 5 5 2 1 2 2 4 1 5 4 3 3 5 3 1 2 6 4 1 3 2 3 2 3 3 1 2 2 1 4 3 3 4
##  [186] 6 2 1 3 1 3 2 2 5 1 1 1 1 5 3 3 3 2 1 2 2 4 2 3 1 4 1 3 6 5 2 5 1 2 3 2 5
##  [223] 1 1 2 4 2 3 3 3 5 2 2 4 4 1 2 5 2 4 3 4 3 4 5 3 4 4 2 3 3 4 3 5 5 4 2 4 4
##  [260] 1 1 2 4 3 3 1 2 5 2 3 4 2 4 2 5 4 2 2 2 2 2 3 2 4 3 4 5 5 4 4 2 5 1 1 2 2
##  [297] 3 2 2 5 2 4 2 3 4 5 1 4 2 2 5 4 4 3 2 2 5 3 2 3 3 3 5 3 3 5 1 6 2 2 2 2 3
##  [334] 5 2 5 5 1 2 5 6 2 3 5 2 5 3 5 4 4 2 4 2 4 4 1 4 1 3 3 3 3 5 1 3 4 3 1 3 3
##  [371] 1 3 5 3 3 3 4 3 5 5 1 6 4 4 3 4 3 1 3 3 2 3 6 2 2 2 5 6 4 3 4 4 3 3 5 6 3
##  [408] 2 5 1 3 6 3 2 5 3 1 3 3 3 5 6 4 1 3 4 4 1 5 5 3 4 3 1 1 3 2 3 4 2 1 2 2 4
##  [445] 2 3 2 3 4 1 2 3 1 5 4 2 3 1 2 6 2 4 6 1 5 6 5 3 1 3 6 2 2 4 4 4 1 2 3 2 1
##  [482] 2 6 1 4 3 6 2 3 5 3 5 1 3 1 4 1 3 2 1 1 1 4 1 4 3 3 2 3 3 2 3 1 3 3 6 2 2
##  [519] 2 5 1 2 2 5 4 5 4 4 6 4 3 1 5 5 5 4 3 3 3 1 2 2 1 2 3 5 1 3 3 1 3 4 3 4 1
##  [556] 1 2 3 3 5 6 2 1 3 2 5 4 3 2 2 1 1 5 4 1 2 2 3 3 2 1 4 3 4 3 4 6 2 2 3 4 4
##  [593] 3 3 5 2 2 1 3 4 3 3 6 5 2 2 4 2 5 2 1 3 1 1 4 2 4 5 1 3 4 4 5 6 1 3 5 4 3
##  [630] 4 6 1 1 4 4 2 4 1 2 1 2 2 3 4 3 1 1 5 1 3 2 2 2 4 4 1 6 2 3 4 6 5 3 3 3 5
##  [667] 5 3 2 4 3 3 1 3 2 6 5 3 4 4 3 5 3 3 3 1 2 1 3 5 5 1 1 4 1 1 3 3 2 5 2 2 2
##  [704] 2 3 6 1 3 1 1 4 1 5 4 1 3 2 3 1 5 3 3 2 1 3 3 5 3 3 2 3 4 6 4 4 4 4 2 2 4
##  [741] 2 6 1 1 4 2 1 2 3 4 5 4 2 5 3 5 2 5 3 2 3 1 1 1 4 1 4 5 5 5 3 3 1 2 4 1 2
##  [778] 1 3 3 5 1 2 5 5 6 2 3 2 3 3 4 1 3 2 3 4 5 3 3 1 1 1 2 4 3 5 4 4 2 1 3 2 2
##  [815] 5 2 1 1 4 4 5 1 2 1 2 3 1 4 2 1 2 2 3 3 4 4 2 1 4 3 5 3 6 2 3 2 1 3 5 5 4
##  [852] 3 2 3 1 3 3 5 1 2 3 5 5 3 3 2 4 3 4 4 5 1 1 1 2 3 2 3 4 2 3 3 1 5 4 2 5 1
##  [889] 2 6 1 2 4 1 2 1 3 1 3 2 2 4 1 1 6 6 4 3 2 2 1 6 1 3 5 5 3 1 6 3 4 3 2 5 1
##  [926] 4 2 4 4 3 5 3 1 2 4 2 5 1 2 1 6 1 2 3 6 1 1 1 6 6 5 6 3 4 3 3 4 3 5 2 2 5
##  [963] 2 6 5 4 6 1 5 3 1 2 3 4 3 2 1 4 2 5 3 1 2 5 5 3 1 3 2 1 1 3 4 3 3 2 4 3 3
## [1000] 4 3 1 1 4 3 2 2 1 3 2 3 2 4 3 5 3 2 1 3 3 5 3 6 3 4 5 1 5 3 2 4 1 4 5 3 1
## [1037] 2 6 3 1 3 5 2 4 5 3 3 5 5 3 5 5 3 2 2 2 4 1 4 3 5 6 2 2 2 6 1 2 3 4 3 6 4
## [1074] 3 1 4 4 1 2 5 3 1 5 3 2 1 1 3 4 3 4 3 1 4 5 2 1 1 5 3 6 4 4 3 5 1 3 2 1 3
## [1111] 4 3 6 3 2 4 1 4 5 6 6 5 4 2 3 1 3 4 2 3 1 1 4 4 2 2 2 3 3 6 1 1 5 2 2 4 2
## [1148] 4 3 1 3 3 3 2 1 5 1 2 1 3 4 5 2 1 2 2 4 1 4 1 3 1 2 4 1 1 4 3 1 5 3 3 5 3
## [1185] 3 1 4 4 2 1 1 3 2 4 5 5 4 4 3 6 3 5 1 1 5 3 2 2 1 3 1 2 3 1 5 1 2 2 1 2 1
## [1222] 2 5 3 4 1 2 2 4 2 3 4 5 2 2 5 5 3 3 1 5 5 4 4 3 3 4 3 1 1 2 2 2 4 4 3 3 5
## [1259] 1 2 3 6 5 3 4 3 2 4 2 1 3 1 5 2 2 3 2 2 4 3 5 3 6 1 4 3 1 5 3 1 5 3 6 2 1
## [1296] 2 1 3 2 6 2 1 2 3 5 4 3 5 2 1 1 2 4 2 4 3 4 3 3 2 1 2 1 5 5 4 3 2 3 2 4 1
## [1333] 4 4 3 3 4 2 1 3 3 4 5 5 3 2 4 1 2 5 3 5 5 3 4 5 4 1 2 3 5 2 6 2 1 3 2 2 2
## [1370] 5 2 3 3 4 3 5 1 1 3 3 2 2 2 1 3 4 2 4 2 1 1 3 2 5 5 6 2 2 5 5 2 4 6 2 1 3
## [1407] 3 2 4 3 3 2 5 5 3 3 2 2 5 2 2 3 4 2 3 3 5 3 3 1 1 5 2 3 2 1 4 2 1 3 4 2 2
## [1444] 2 4 1 4 2 2 1 3 3 6 5 2 2 3 4 3 2 1 3 6 3 3 3 2 3 4 1 2 4 4 3 3 3 2 1 5 1
## [1481] 5 3 1 3 3 5 3 1 3 5 1 4 2 1 5 2 3 3 3 3 3 4 1 6 4 1 3 2 2 4 2 3 2 5 2 3 2
## [1518] 5 6 3 5 2 5 6 3 4 3 6 2 1 2 6 1 5 2 3 1 2 1 6 3 2 4 3 3 3 5 2 4 4 6 6 4 4
## [1555] 6 3 6 1 3 2 3 5 3 5 2 3 5 2 4 4 2 1 1 5 3 4 3 1 3 2 3 1 1 6 5 3 3 2 1 1 3
## [1592] 3 2 6 1 1 2 2 6 2 2 6 1 4 3 3 5 2 1 1 1 4 3 2 2 2 1 6 2 5 4 2 2 3 1 1 4 4
## [1629] 6 3 2 2 2 2 3 3 4 1 3 6 2 1 1 2 5 2 2 5 4 1 3 2 5 3 6 1 1 1 6 5 1 3 6 3 6
## [1666] 6 6 4 2 4 1 3 1 3 2 2 4 1 3 1 3 3 2 3 6 1 5 2 3 5 6 4 3 3 1 1 2 2 1 1 5 4
## [1703] 3 2 3 6 6 1 2 2 3 6 1 2 1 1 6 6 6 1 2 5 5 5 4 6 2 3 2 1 3 6 3 2 3 4 2 5 3
## [1740] 2 3 6 3 2 2 2 4 6 3 4 2 6 2 4 2 1 4 4 6 4 3 6 4 3 3 2 4 2 2 2 4 4 2 5 4 4
## [1777] 5 3 4 1 1 1 2 4 1 5 2 3 1 3 1 1 2 1 2 5 3 5 2 1 5 3 1 3 1 1 4 1 4 1 1 4 3
## [1814] 2 1 1 2 1 5 1 4 1 2 2 3 4 3 5 5 1 1 3 3 4 2 5 4 1 4 1 6 3 2 2 2 3 2 3 1 2
## [1851] 1 2 3 4 5 4 1 1 4 1 1 2 5 2 4 3 6 3 4 6 5 1 1 4 5 3 5 3 3 3 3 4 5 2 3 4 6
## [1888] 6 1 2 4 3 2 1 4 2 4 4 1 5 5 5 4 4 3 1 2 4 3 5 5 2 5 2 1 1 4 4 1 2 1 4 3 3
## [1925] 5 1 2 3 6 3 5 1 1 1 5 6 3 5 1 1 5 2 3 1 3 1 3 1 1 3 4 5 5 2 6 3 6 1 6 1 3
## [1962] 1 1 3 2 6 2 2 4 5 4 4 1 6 5 2 2 1 6 6 2 3 3 1 2 3 2 3 6 3 4 6 3 4 6 5 2 6
## [1999] 6 2 5 3 2 4 5 6 5 3 5 4 5 5 5 2 5 1 3 3 4 2 3 1 3 2 5 1 1 3 1 3 1 4 5 2 6
## [2036] 3 5 3 4 4 2 2 1 4 4 3 3 3 1 5 2 1 2 1 6 2 3 4 5 4 3 4 3 5 1 3 2 4 5 3 4 3
## [2073] 2 2 1 1 4 2 1 2 3 1 6 3 3 1 3 2 3 1 3 2 3 5 3 4 1 4 2 2 5 1 2 4 4 3 1 6 2
## [2110] 3 5 1 4 3 5 3 3 2 4 1 2 3 6 3 3 3 3 3 3 4 2 3 3 3 5 3 6 4 4 4 6 1 1 5 3 3
## [2147] 2 2 4 4 3 5 3 3 3 5 3 3 3 1 5 3 4 1 2 2 5 4 1 1 1 3 3 2 1 1 2 4 2 2 3 2 4
## [2184] 2 5 1 2 3 5 5 3 3 2 5 3 3 1 3 4 3 1 2 5 3 3 1 4 4 5 3 5 1 5 5 3 1 4 1 3 3
## [2221] 1 3 3 2 5 1 2 2 1 3 3 5 6 5 5 1 3 2 5 2 3 6 5 4 3 2 3 1 3 3 3 4 1 2 3 3 3
## [2258] 4 4 5 3 3 4 6 3 2 6 3 4 3 2 1 1 5 3 1 3 6 6 1 4 1 5 4 1 6 3 3 5 3 2 6 3 3
## [2295] 3 4 1 4 6 3 3 3 1 3 3 1 5 2 5 4 1 1 4 5 4 1 4 5 2 3 2 2 3 4 2 4 2 6 4 2 4
## [2332] 2 3 1 2 6 3 5 3 6 3 2 2 1 3 2 4 2 4 1 1 6 1 2 3 2 6 2 6 4 3 3 4 1 3 3 2 1
## [2369] 2 6 4 1 3 5 3 2 1 1 4 3 6 1 1 4 5 2 4 2 6 5 4 3 3 5 2 4 6 3 4 3 3 1 1 2 5
## [2406] 1 1 4 2 4 1 1 4 5 3 4 3 1 4 1 2 4 1 6 4 2 3 3 5 5 2 4 2 1 5 1 3 3 2 5 3 5
## [2443] 4 3 3 3 1 1 5 4 3 4 1 5 1 6 3 3 1 5 1 3 4 3 2 2 6 1 2 4 1 6 4 4 3 2 3 1 3
## [2480] 1 2 3 2 1 5 6 3 2 3 5 6 2 3 4 3 4 5 3 2 6 4 2 3 3 4 2 1 3 5 3 3 5 4 2 1 1
## [2517] 4 1 4 3 4 1 5 2 2 3 1 2 6 5 1 3 1 4 2 1 3 2 1 1 3 3 5 3 1 2 1 2 2 6 3 1 4
## [2554] 4 3 2 5 6 6 4 3 1 2 2 4 4 5 4 6 2 5 5 4 5 2 3 4 4 3 3 5 6 5 1 5 5 2 4 1 1
## [2591] 2 4 1 5 3 1 2 1 6 3 1 2 5 2 1 6 6 2 6 1 4 4 3 2 3 4 6 2 6 5 3 3 4 3 1 1 3
## [2628] 3 3 3 3 4 3 4 6 2 1 6 6 3 6 3 6 3 3 6 3 3 3 3 3 1 2 4 3 1 3 5 3 3 3 3 5 4
## [2665] 4 2 4 4 2 2 1 1 1 6 4 4 3 4 3 2 1 5 4 5 5 2 6 2 5 1 6 1 4 1 2 1 6 2 4 2 6
## [2702] 3 2 1 4 3 2 6 2 6 6 6 1 1 2 4 3 6 1 1 1 1 2 3 5 2 3 5 5 4 5 4 4 4 5 1 6 3
## [2739] 1 4 5 3 4 2 6 3 4 3 3 6 4 1 3 3 2 3 4 1 2 5 3 6 5 3 5 3 4 3 3 5 4 4 4 4 1
## [2776] 3 1 4 5 3 6 3 3 3 2 3 3 1 5 6 5 1 3 3 2 4 4 5 2 1 3 5 3 1 5 1 3 2 3 2 5 3
## [2813] 3 1 2 5 4 2 4 3 5 2 3 3 4 2 4 2 1 5 4 5 5 1 3 1 2 1 5 1 5 4 2 2 4 1 1 2 3
## [2850] 1 6 2 3 1 4 6 5 1 4 5 2 1 4 1 5 1 5 3 2 6 5 6 6 3 3 5 3 4 1 4 1 1 2 2 2 4
## [2887] 5 4 3 1 5 3 3 2 2 3 3 2 4 6 3 2 5 5 5 6 3 3 3 3 1 6 5 3 6 6 3 3 2 4 3 1 3
## [2924] 2 3 3 4 5 1 1 3 2 5 1 3 5 1 4 3 6 1 2 2 1 6 2 1 3 3 6 2 1 4 3 1 4 6 3 4 3
## [2961] 1 2 1 3 4 2 4 2 6 4 1 4 4 1 6 4 6 6 6 6 6 3 3 2 5 6 1 5 4 3 5 3 2 6 6 5 4
## [2998] 3 2 3 3 1 3 1 2 2 1 1 1 1 1 4 6 5 2 1 3 3 2 3 1 3 1 3 1 1 6 6 2 1 6 4 1 1
## [3035] 3 3 5 3 1 1 5 2 3 2 6 3 1 4 6 6 1 6 6 3 3 2 1 2 1 4 5 1 3 3 1 1 4 5 5 6 6
## [3072] 2 3 3 1 5 4 4 1 3 3 6 4 6 1 3 1 1 5 2 2 3 1 1 3 4 4 6 4 5 4 1 3 3 2 2 5 3
## [3109] 5 4 1 2 1 2 4 4 5 3 4 5 1 2 6 5 5 1 3 3 3 3 5 3 3 1 1 2 1 1 5 1 1 3 4 1 1
## [3146] 1 2 2 3 3 4 1 3 4 3 2 3 1 5 3 5 3 2 1 2 5 2 3 4 2 4 3 4 3 5 3 1 1 2 4 3 2
## [3183] 2 6 3 3 4 3 1 5 4 6 2 4 2 6 4 2 3 1 5 4 2 5 2 4 1 1 3 5 5 3 5 2 2 2 6 4 5
## [3220] 2 4 2 2 5 1 3 2 3 2 1 3 2 5 5 6 3 6 2 5 1 5 2 1 3 3 1 2 6 2 2 4 4 6 4 3 1
## [3257] 5 6 3 3 1 4 3 4 3 2 3 5 2 4 3 6 2 1 5 2 5 1 1 2 5 3 2 1 6 1 6 2 3 1 6 3 1
## [3294] 6 5 1 4 5 6 5 3 6 3 4 3 2 2 3 6 2 3 3 4 4 1 3 3 1 3 4 3 3 1 2 3 2 2 5 2 1
## [3331] 1 1 3 3 4 1 1 1 3 5 1 1 3 6 2 1 2 2 6 1 6 1 5 3 1 6 1 5 6 6 3 1 3 6 6 1 5
## [3368] 4 2 2 5 6 1 6 2 3 1 4 6 3 6 5 1 2 4 3 3 2 4 4 2 1 4 5 1 2 2 2 5 2 3 3 4 5
## [3405] 5 3 1 2 3 1 3 1 6 3 3 3 4 3 4 4 1 3 1 4 5 1 2 2 2 4 2 1 4 3 6 3 4 3 3 1 2
## [3442] 5 4 4 4 1 1 4 2 2 4 6 1 1 1 3 6 5 1 4 5 4 3 5 1 3 4 6 2 4 3 3 5 5 2 2 3 4
## [3479] 3 4 5 2 3 2 3 4 5 3 2 2 5 2 6 4 4 1 1 1 1 2 5 2 6 2 2 2 2 2 3 4 4 6 4 4 3
## [3516] 5 2 6 3 1 6 4 3 3 4 3 3 3 3 1 5 3 2 4 3 4 3 2 3 3 4 5 4 1 3 1 1 1 1 4 6 2
## [3553] 2 1 2 3 1 4 3 1 2 3 4 3 5 6 1 2 1 3 2 5 1 2 4 3 4 6 1 2 5 1 1 2 3 2 6 3 2
## [3590] 1 2 4 1 3 3 4 2 5 5 2 4 1 3 1 6 4 2 3 5 2 5 3 1 5 4 3 5 1 6 4 3 5 1 3 6 4
## [3627] 3 5 2 1 5 3 1 5 6 1 6 6 6 6 3 2 4 1 3 4 1 4 3 2 3 3 5 3 4 2 2 4 5 6 6 4 3
## [3664] 4 1 3 1 3 5 2 3 2 5 3 1 4 2 1 6 3 4 1 5 4 3 4 3 1 6 1 3 2 2 3 6 1 4 6 4 3
## [3701] 3 1 2 4 2 1 1 1 1 4 4 1 2 3 3 3 4 4 5 2 2 1 2 6 5 3 3 4 4 4 4 1 2 1 2 1 2
## [3738] 4 4 2 1 2 3 1 3 4 5 2 1 3 3 2 3 5 3 1 3 2 2 2 1 3 3 3 5 4 6 1 6 5 2 3 4 1
## [3775] 4 4 5 1 1 4 1 3 1 2 2 3 4 3 1 3 4 3 4 4 5 5 1 3 3 2 1 2 2 1 3 4 6 3 4 1 4
## [3812] 4 4 3 3 4 5 2 2 3 1 3 3 4 1 4 3 6 3 3 1 3 3 4 5 2 6 3 4 5 1 4 4 6 2 3 6 1
## [3849] 1 3 2 3 4 3 2 3 4 6 5 2 6 2 2 5 4 2 5 1 3 2 1 3 1 6 2 2 2 6 3 3 4 3 1 4 1
## [3886] 4 2 1 2 3 4 4 2 1 1 3 1 5 3 2 5 1 5 5 1 2 2 4 3 2 5 4 2 3 4 4 4 2 1 2 3 4
## [3923] 2 2 1 2 4 2 3 5 1 2 1 2 2 2 3 5 3 3 5 2 3 3 2 3 4 4 5 2 2 3 3 3 4 1 3 3 2
## [3960] 3 2 4 2 5 5 2 4 2 2 5 3 4 5 2 4 1 2 2 3 2 3 3 5 2 3 4 2 2 6 1 4 3 4 3 1 2
## [3997] 2 5 1 1 6 3 6 4 3 1 1 1 5 1 3 2 1 4 3 4 6 2 6 6 1 4 2 2 6 2 1 4 5 3 1 2 4
## [4034] 5 4 1 1 4 1 6 2 4 2 3 3 5 5 3 5 1 3 3 4 2 2 3 3 2 3 2 6 2 3 4 3 2 3 5 5 3
## [4071] 1 3 3 3 6 6 1 6 3 4 3 5 3 1 3 6 1 1 5 1 3 3 1 1 5 3 3 4 3 5 4 6 5 2 6 3 4
## [4108] 3 3 1 4 4 5 4 5 3 4 2 3 4 3 1 3 1 3 2 5 4 2 3 3 1 3 3 6 3 6 2 4 3 3 3 3 3
## [4145] 1 6 2 3 1 3 6 5 3 1 1 3 1 3 3 5 3 6 4 4 3 1 1 5 3 3 3 3 1 1 6 1 3 1 6 3 3
## [4182] 1 3 1 6 4 6 3 1 2 1 6 2 1 3 3 1 2 3 1 4 2 5 5 2 1 1 3 2 3 3 5 3 2 2 3 2 4
## [4219] 1 4 1 5 3 5 1 2 5 5 3 6 2 3 1 2 4 1 3 3 2 1 4 3 3 6 4 2 3 3 5 2 1 6 1 4 3
## [4256] 4 3 4 5 3 2 3 5 5 2 2 3 1 1 1 5 4 1 6 4 3 1 4 1 3 4 5 1 4 5 2 5 1 3 4 5 4
## [4293] 2 4 3 1 3 2 5 3 3 5 3 1 6 2 3 5 3 2 1 1 2 1 3 3 1 1 1 3 2 3 4 3 2 3 2 2 3
## [4330] 4 2 2 5 1 3 6 4 4 5 1 2 5 2 1 5 1 3 5 6 1 3 2 4 5 1 3 4 5 3 3 1 2 1 1 1 1
## [4367] 1 3 3 1 2 4
## 
## Within cluster sum of squares by cluster:
## [1] 425.9603 365.4587 416.1030 344.4632 577.9936 163.7479
##  (between_SS / total_SS =  82.5 %)
## 
## Available components:
## 
## [1] "cluster"      "centers"      "totss"        "withinss"     "tot.withinss"
## [6] "betweenss"    "size"         "iter"         "ifault"

head(df6_scale)

##     mon_bins   rec_bins  freq_bins
## 1 -1.1951472  1.4366635 -1.1800234
## 2  1.5994422 -1.1988522  1.5014019
## 3  0.9007949  0.1189056 -0.5096671
## 4  0.9007949 -0.5399733  0.1606893
## 5 -0.4964998  1.4366635 -1.1800234
## 6  0.2021475 -0.5399733  0.8310456

df6_scale$cluster=k_mod6_1$cluster

head(df6_scale)

##     mon_bins   rec_bins  freq_bins cluster
## 1 -1.1951472  1.4366635 -1.1800234       3
## 2  1.5994422 -1.1988522  1.5014019       2
## 3  0.9007949  0.1189056 -0.5096671       5
## 4  0.9007949 -0.5399733  0.1606893       4
## 5 -0.4964998  1.4366635 -1.1800234       3
## 6  0.2021475 -0.5399733  0.8310456       6

library(cluster)

s =silhouette(df6_scale$cluster, dist(df6_scale[,-4],method = 'euclidean'))

plot(s, col=1:3, border=NA)

the average silhoutte width is .43 ,more it is towards 1 the better

#Silhoutte analysis for hierarchical clustering

head(h_clust)

##   custid mon_bins freq_bins rec_bins tot_score cluster
## 1  12346        1         1        5  2.333333       1
## 2  12347        5         5        1  3.666667       2
## 3  12348        4         2        3  3.000000       3
## 4  12349        4         3        2  3.000000       3
## 5  12350        2         1        5  2.666667       1
## 6  12352        3         4        2  3.000000       3

s =silhouette(h_clust$cluster, dist(df6_scale,method = 'euclidean'))
plot(s, col=1:3, border=NA)

#the average silhoutte width is .33 # which is lesser thaan kmeans

#Increasing the number of clusters further

k_mod8=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=8)

df_mod8=cbind(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],"cluster"=k_mod8$cluster)
df_mod8$cluster=as.factor(df_mod8$cluster)

df_mod8$cluster

##    [1] 7 3 1 1 2 5 7 6 2 3 3 1 3 3 7 3 6 1 6 4 3 1 1 2 1 1 8 8 1 3 1 8 4 2 3 4 5
##   [38] 1 1 3 3 1 6 7 7 4 8 3 1 3 3 6 1 1 6 3 3 6 4 1 6 3 6 1 6 1 3 3 4 3 3 3 1 8
##   [75] 2 3 3 7 4 3 4 1 6 4 3 7 3 1 6 4 8 3 8 1 6 1 1 1 1 6 3 3 3 3 1 3 3 1 1 3 3
##  [112] 3 3 1 2 3 4 4 6 1 4 4 3 8 8 7 4 7 7 6 1 7 6 4 4 6 2 1 3 3 4 3 6 4 3 3 1 4
##  [149] 3 8 4 4 6 1 3 4 3 3 1 4 1 1 7 7 1 7 4 3 5 1 4 6 3 7 3 6 7 4 3 3 4 1 7 7 1
##  [186] 5 3 4 6 4 6 3 3 8 4 4 4 4 8 6 6 6 3 4 3 3 1 3 6 4 4 4 7 5 1 3 1 4 3 6 3 1
##  [223] 4 4 3 1 3 7 6 6 8 3 3 1 1 4 3 8 3 1 6 1 7 1 8 6 1 1 3 6 6 1 7 6 8 1 3 1 1
##  [260] 4 4 3 1 7 7 4 3 8 3 7 1 3 1 3 1 1 3 3 3 3 3 7 8 1 2 1 6 1 1 1 3 1 4 4 3 3
##  [297] 6 3 3 6 3 1 3 6 1 6 4 1 3 3 1 1 1 6 3 3 1 6 3 7 6 7 6 7 7 1 4 5 3 3 3 3 7
##  [334] 8 3 8 2 4 3 8 5 3 6 8 3 6 2 1 1 1 3 1 3 1 1 4 1 4 6 7 6 6 1 4 7 1 6 4 6 6
##  [371] 4 7 6 6 7 2 1 7 1 1 4 5 1 1 7 1 7 4 6 6 3 7 5 3 8 3 1 8 1 6 1 1 6 6 8 5 7
##  [408] 3 6 4 7 5 6 3 8 7 4 6 2 2 8 5 1 4 2 1 1 4 1 1 2 1 2 4 4 7 3 7 1 3 4 3 3 1
##  [445] 3 6 8 2 1 4 3 6 4 1 1 3 7 4 3 5 3 1 5 4 8 5 6 7 4 6 8 3 3 1 1 1 4 3 7 3 4
##  [482] 3 5 4 1 7 5 3 7 6 7 8 4 6 4 1 4 6 3 4 4 4 1 4 1 6 6 3 7 7 3 6 4 7 7 5 3 3
##  [519] 3 1 4 3 3 1 1 8 1 4 5 1 7 4 1 6 1 1 2 6 6 4 3 3 4 3 6 1 4 7 2 4 2 1 7 1 4
##  [556] 4 3 7 7 6 5 3 4 7 3 8 1 7 3 3 4 4 8 1 4 3 3 7 7 3 4 1 7 1 2 1 5 3 3 6 1 1
##  [593] 7 6 6 3 3 4 7 1 7 7 8 2 3 3 1 3 6 3 4 7 4 4 1 3 1 6 4 7 1 1 6 5 4 7 8 1 6
##  [630] 1 5 4 4 1 1 3 1 4 3 4 3 3 7 1 7 4 4 6 4 7 3 3 3 1 1 4 5 3 6 1 5 1 2 7 7 1
##  [667] 6 7 3 1 7 7 4 7 3 5 1 6 1 1 6 6 7 6 7 4 3 4 6 6 6 4 4 1 4 4 2 7 3 8 3 3 3
##  [704] 3 2 5 4 7 4 4 1 4 6 1 4 7 3 6 4 6 7 7 3 4 7 6 6 7 6 3 7 1 5 1 1 1 1 3 3 1
##  [741] 3 5 4 4 1 3 4 3 2 1 6 1 3 1 6 6 3 6 6 3 6 4 4 4 1 4 1 1 6 1 6 6 4 3 1 4 3
##  [778] 4 6 7 6 4 3 1 6 5 3 7 3 6 6 1 4 7 3 6 1 1 6 6 4 4 4 3 1 7 6 1 1 3 4 7 3 3
##  [815] 8 3 4 4 1 1 1 4 3 4 3 6 4 1 3 4 3 3 2 2 1 1 3 4 1 7 1 6 5 3 7 3 4 6 6 6 1
##  [852] 7 3 7 4 2 6 1 4 3 2 1 6 2 6 3 1 6 1 1 6 4 4 4 3 6 3 7 1 3 7 7 4 1 1 3 1 4
##  [889] 8 5 4 3 1 4 3 4 6 4 6 3 3 1 4 4 5 8 1 7 3 3 4 5 4 7 8 1 6 4 5 6 1 7 3 6 4
##  [926] 1 3 1 1 7 6 7 4 3 1 3 1 4 8 4 5 4 3 7 5 4 4 4 5 5 1 5 6 1 7 7 1 7 8 3 3 2
##  [963] 3 5 1 1 5 4 1 6 4 3 7 1 6 3 4 1 3 6 6 4 3 8 1 7 4 6 3 4 4 7 1 6 7 3 1 7 7
## [1000] 1 7 4 4 1 7 3 3 4 2 3 7 3 1 6 6 6 3 4 7 7 8 7 5 2 1 6 4 8 7 3 1 4 1 6 6 4
## [1037] 3 5 6 4 6 1 3 1 6 7 7 6 1 2 6 6 7 3 3 3 1 4 1 7 1 5 3 3 3 5 4 3 7 1 7 5 1
## [1074] 7 4 1 4 4 3 6 6 4 8 7 3 4 4 7 1 7 1 2 4 1 1 3 4 4 6 6 5 1 1 7 1 4 7 3 4 6
## [1111] 1 7 5 7 3 1 4 1 2 5 5 8 1 3 2 4 7 1 3 6 4 4 1 1 8 3 3 6 6 8 4 4 1 3 3 1 3
## [1148] 1 6 4 6 6 2 3 4 6 4 3 4 7 1 6 3 4 3 3 1 4 1 4 7 4 3 1 4 4 1 2 4 1 2 6 6 6
## [1185] 7 4 1 1 3 4 4 7 3 1 6 8 1 1 6 5 7 1 4 4 6 7 3 3 4 7 4 3 2 4 1 4 3 3 4 3 4
## [1222] 3 1 2 1 4 3 3 1 3 2 1 6 3 3 6 6 2 6 4 1 8 1 1 6 6 1 2 4 4 3 3 3 1 1 6 7 1
## [1259] 4 3 7 5 2 7 1 6 3 1 3 4 7 4 2 3 3 7 3 3 1 7 1 7 5 4 1 6 4 6 2 4 8 7 5 3 4
## [1296] 3 4 7 3 5 3 4 3 7 8 1 7 1 3 4 4 3 1 3 1 2 1 7 7 3 4 3 4 6 1 1 6 3 6 3 1 4
## [1333] 1 1 6 7 1 3 4 7 7 1 1 6 7 3 1 4 3 8 7 8 1 7 1 6 1 4 3 6 1 3 5 3 4 7 3 3 3
## [1370] 1 3 2 2 1 7 1 4 4 6 7 3 3 3 4 7 1 3 1 3 4 4 6 3 6 6 8 3 3 1 6 3 1 5 3 4 7
## [1407] 7 3 1 7 7 3 8 6 7 2 3 3 6 3 3 7 1 3 6 6 6 6 7 4 4 1 3 7 3 4 1 3 4 2 1 3 3
## [1444] 3 1 4 1 3 3 4 2 7 8 8 3 3 7 1 7 3 4 6 5 6 7 2 3 6 1 4 3 1 1 6 7 7 3 4 6 4
## [1481] 6 6 4 7 7 6 7 4 7 1 4 1 3 4 8 3 7 7 7 6 2 1 4 5 1 4 7 3 3 1 3 7 3 1 3 6 3
## [1518] 6 5 7 8 3 8 5 2 1 7 5 3 4 3 5 4 1 3 7 4 3 4 5 6 3 4 7 7 7 8 3 1 1 5 5 1 1
## [1555] 5 6 5 4 7 3 7 6 2 8 3 2 8 3 1 1 8 4 4 1 7 4 6 4 6 3 7 4 4 5 1 6 2 3 4 4 6
## [1592] 6 3 5 4 4 3 3 5 3 3 5 4 1 7 6 1 3 4 4 4 4 7 3 3 3 4 5 3 6 1 3 3 7 4 4 1 1
## [1629] 5 7 3 3 3 3 2 6 1 4 6 5 3 4 4 3 1 3 8 2 1 4 7 3 8 7 5 4 4 4 5 8 4 7 5 7 5
## [1666] 5 5 1 3 1 4 6 4 2 3 3 1 4 2 4 6 6 3 6 5 4 6 3 7 1 5 1 7 6 4 4 3 3 4 4 6 1
## [1703] 6 3 7 5 5 4 3 3 6 5 4 3 4 4 5 5 5 4 3 8 6 6 1 5 3 7 3 4 7 5 2 3 7 1 3 6 7
## [1740] 3 7 5 7 3 3 3 1 5 7 1 3 5 3 1 3 4 1 1 5 1 7 5 1 7 6 3 1 3 3 3 1 1 3 6 1 1
## [1777] 6 6 1 4 4 4 3 1 4 6 3 7 4 6 4 4 3 4 3 6 7 1 3 4 6 6 4 7 4 4 1 4 1 4 4 1 7
## [1814] 3 4 4 3 4 6 4 1 4 3 3 7 1 7 6 1 4 4 7 6 1 3 2 1 4 1 4 8 7 3 3 3 2 3 7 4 3
## [1851] 4 3 6 1 1 1 4 4 1 4 4 3 6 3 1 2 5 6 1 5 1 4 4 1 2 6 1 6 7 7 6 1 1 3 6 1 5
## [1888] 5 4 3 1 6 3 4 1 3 1 1 4 1 6 6 1 1 2 4 8 1 2 8 2 3 1 3 4 4 1 1 4 3 4 1 7 6
## [1925] 1 4 3 7 5 7 6 4 4 4 1 5 7 6 4 4 1 3 7 4 6 4 6 4 4 6 1 8 8 3 5 7 5 4 5 4 7
## [1962] 4 4 6 3 5 3 3 1 1 1 1 4 5 8 3 3 4 5 5 3 6 7 4 3 2 3 6 5 7 1 5 7 1 5 6 3 5
## [1999] 5 3 1 2 3 1 8 5 6 7 6 1 6 1 6 3 6 4 7 2 1 3 6 4 6 3 6 4 4 2 4 2 4 1 6 3 5
## [2036] 7 6 6 1 1 3 3 4 1 1 7 7 6 4 8 3 4 3 4 5 3 6 1 6 1 7 1 7 8 4 7 3 1 8 6 1 6
## [2073] 3 3 4 4 1 3 4 3 7 4 5 6 7 4 2 3 7 4 7 3 7 1 6 1 4 1 3 3 6 4 3 1 1 7 4 5 3
## [2110] 2 1 4 1 6 1 7 6 3 1 4 3 2 8 7 2 6 2 6 7 1 3 6 6 7 8 2 5 1 1 1 8 4 4 8 6 2
## [2147] 3 3 1 1 6 1 7 7 6 8 7 7 7 4 6 7 1 4 3 3 1 1 4 4 4 7 7 3 4 4 3 1 3 3 7 3 1
## [2184] 3 1 4 3 6 1 1 7 6 3 1 7 6 4 7 1 7 4 3 1 6 6 4 1 4 6 2 6 4 1 1 6 4 1 4 7 7
## [2221] 4 6 7 3 6 4 3 3 4 2 2 6 5 1 8 4 7 3 8 3 7 5 8 1 2 3 6 4 6 7 2 1 4 3 7 7 7
## [2258] 1 1 2 6 2 1 5 7 3 5 7 1 6 3 4 4 1 7 4 2 5 5 4 1 4 1 1 4 5 6 7 1 2 3 5 7 7
## [2295] 6 1 4 1 5 7 6 6 4 6 7 4 8 3 1 1 4 4 1 6 1 4 1 6 3 6 3 3 7 1 8 1 3 5 4 3 1
## [2332] 3 6 4 8 5 6 6 7 5 7 3 3 4 7 3 1 3 1 4 4 5 4 3 7 3 5 3 5 1 6 7 1 4 7 7 3 4
## [2369] 3 8 1 4 7 1 7 3 4 4 1 7 5 4 4 1 6 3 1 3 5 8 1 7 7 1 8 1 5 6 4 6 7 4 4 3 6
## [2406] 4 4 1 3 1 4 4 1 8 7 1 7 4 1 4 3 1 4 5 1 3 6 6 6 1 3 1 3 4 1 4 7 6 3 8 6 8
## [2443] 1 6 6 2 4 4 2 1 6 1 4 6 4 5 2 7 4 8 4 7 1 7 3 3 8 4 3 1 4 5 1 1 7 3 7 4 7
## [2480] 4 3 6 3 4 6 5 7 8 7 1 5 3 7 1 6 1 8 7 3 5 1 3 7 7 1 3 4 7 1 2 7 6 1 3 4 4
## [2517] 1 4 1 7 1 4 2 3 3 7 4 3 5 1 4 7 4 1 3 4 6 3 4 4 7 7 6 6 4 3 4 3 3 5 6 4 1
## [2554] 1 6 3 2 5 8 1 7 4 3 3 1 1 8 1 5 3 6 6 1 8 3 7 1 1 7 6 8 8 6 4 1 6 3 1 4 4
## [2591] 3 1 4 1 7 4 3 4 5 7 4 3 6 3 4 5 5 3 5 4 1 1 6 3 7 1 5 3 5 6 6 6 1 6 4 4 6
## [2628] 6 7 7 7 1 7 1 5 3 4 5 5 7 5 7 5 7 6 5 6 6 2 7 7 4 3 1 2 4 6 8 7 2 2 7 1 1
## [2665] 1 3 1 1 3 3 4 4 4 5 1 1 2 1 7 3 4 6 1 1 8 3 5 3 6 4 5 4 1 4 3 4 5 3 1 3 5
## [2702] 7 3 4 1 6 3 5 3 5 5 5 4 4 3 1 6 5 4 4 4 4 3 6 6 3 6 1 6 1 1 1 1 1 6 4 5 7
## [2739] 4 1 6 7 1 3 5 7 1 6 6 5 1 4 6 7 3 7 1 4 3 6 6 5 1 6 6 7 1 2 7 8 1 1 1 1 4
## [2776] 2 4 1 1 6 5 7 7 7 3 6 7 4 1 5 1 4 7 7 3 1 1 8 3 4 6 1 7 4 1 4 6 3 7 3 6 6
## [2813] 7 4 3 6 1 3 1 2 1 3 7 2 1 3 1 3 4 6 1 6 6 4 7 4 8 4 8 4 1 1 3 3 1 4 4 3 6
## [2850] 4 5 3 6 4 1 5 1 4 1 8 3 4 1 4 6 4 6 7 3 5 8 5 5 7 2 1 6 1 4 1 4 4 3 3 3 1
## [2887] 6 1 7 4 8 6 7 3 3 2 7 3 1 5 7 3 1 1 6 5 6 6 6 2 4 5 1 7 5 5 7 7 3 1 7 4 7
## [2924] 3 6 6 1 1 4 4 7 3 6 4 2 6 4 1 7 5 4 3 3 4 5 3 4 7 7 5 3 4 1 7 4 1 5 7 1 7
## [2961] 4 3 4 7 1 3 1 3 5 1 4 1 1 4 5 1 5 5 5 5 5 2 6 3 1 5 4 1 1 7 1 6 3 5 5 8 1
## [2998] 6 3 6 7 4 7 4 3 3 4 4 4 4 4 1 5 6 3 4 7 6 3 7 4 7 4 6 4 4 5 5 3 4 5 1 4 4
## [3035] 7 7 6 2 4 4 8 8 7 3 5 7 4 1 5 5 4 5 5 7 6 3 4 3 4 1 1 4 7 6 4 4 1 1 6 5 5
## [3072] 3 7 6 4 6 1 4 4 2 7 5 1 8 4 7 4 4 8 3 3 7 4 4 6 1 1 5 1 6 1 4 2 7 3 8 6 2
## [3109] 8 1 4 3 4 3 1 1 1 7 1 6 4 3 5 6 1 4 7 7 2 7 1 2 7 4 4 3 4 4 1 4 4 7 1 4 4
## [3146] 4 3 3 7 7 1 4 6 1 7 3 7 4 1 7 1 6 3 4 3 1 3 7 1 3 1 7 1 6 6 7 4 4 3 1 6 3
## [3183] 3 5 7 7 1 7 4 1 1 5 3 1 3 5 1 3 7 4 8 1 3 1 3 1 4 4 2 1 2 7 2 3 3 3 5 1 8
## [3220] 3 1 3 3 8 4 2 3 6 3 4 7 3 1 8 5 6 5 3 1 4 1 3 4 7 2 4 3 5 3 3 1 1 5 1 7 4
## [3257] 2 8 7 7 4 1 2 1 6 3 7 6 3 1 6 5 3 4 1 3 1 4 4 3 6 6 3 4 5 4 5 3 7 4 5 6 4
## [3294] 5 8 4 1 6 8 6 7 5 7 1 2 3 3 6 5 3 6 6 1 1 4 7 7 4 7 1 6 7 4 3 6 3 3 1 3 4
## [3331] 4 4 7 6 1 4 4 4 2 6 4 4 7 5 3 4 3 3 5 4 5 4 1 7 4 5 4 8 5 5 6 4 6 5 5 4 8
## [3368] 1 3 3 1 5 4 5 3 7 4 1 5 2 5 8 4 3 1 7 2 3 1 1 3 4 1 1 4 3 3 3 6 3 6 6 1 1
## [3405] 6 7 4 3 6 4 2 4 5 7 7 7 1 6 1 1 4 7 4 1 6 4 3 3 3 1 3 4 1 7 5 7 1 2 7 4 3
## [3442] 1 1 1 1 4 4 1 3 3 4 5 4 4 4 7 5 2 4 1 1 1 6 1 4 2 1 5 3 1 6 6 1 6 3 8 6 1
## [3479] 2 1 1 3 7 8 6 1 1 7 3 3 6 3 5 1 1 4 4 4 4 3 6 3 8 3 3 3 3 3 7 1 1 5 1 1 7
## [3516] 6 3 5 7 4 5 1 7 7 1 6 7 2 6 4 8 7 3 1 6 1 6 3 6 2 1 6 1 4 2 4 4 4 4 1 5 3
## [3553] 3 4 3 7 4 1 7 4 3 7 1 2 6 5 4 3 4 7 3 6 4 3 1 7 1 5 4 3 6 4 4 3 7 3 5 7 3
## [3590] 4 3 1 4 6 6 1 3 6 8 3 1 4 7 4 5 1 3 2 6 3 1 7 4 6 1 7 6 4 5 1 7 6 4 7 5 1
## [3627] 6 2 3 4 6 7 4 8 8 4 5 5 5 5 2 3 1 4 6 1 4 1 6 3 7 7 1 2 1 3 3 1 6 5 5 1 7
## [3664] 1 4 7 4 2 8 3 7 3 8 7 4 1 3 4 5 7 1 4 2 4 7 1 6 4 5 4 6 3 3 7 5 4 1 5 1 6
## [3701] 6 4 3 1 3 4 4 4 4 1 1 4 3 2 6 7 1 1 6 8 3 4 3 5 8 7 2 1 1 1 4 4 3 4 3 4 3
## [3738] 1 1 3 4 3 6 4 6 1 1 3 4 6 7 3 2 8 7 4 7 3 3 3 4 6 7 7 6 1 5 4 5 1 3 7 1 4
## [3775] 1 1 8 4 4 1 4 6 4 3 3 2 1 7 4 6 4 7 1 1 8 6 4 6 6 3 4 3 3 4 7 1 5 7 1 4 1
## [3812] 1 1 7 2 1 1 3 3 2 4 7 7 1 4 1 7 5 7 7 4 7 6 1 2 3 5 7 1 6 4 1 1 5 3 6 5 4
## [3849] 4 7 3 7 1 6 3 7 1 8 6 3 5 3 3 1 1 3 8 4 7 3 4 6 4 5 3 3 3 5 2 2 1 6 4 1 4
## [3886] 1 3 4 3 6 1 1 3 4 4 7 4 6 7 3 6 4 8 6 4 3 3 1 7 3 8 1 3 6 1 1 1 3 4 3 7 1
## [3923] 3 3 4 3 1 3 2 8 4 3 4 3 3 3 7 6 7 7 6 3 6 7 3 6 1 1 6 3 3 7 7 7 1 4 7 2 3
## [3960] 7 3 1 8 2 1 3 1 3 3 1 6 1 1 3 1 4 3 3 2 3 7 7 6 3 7 1 3 3 5 4 1 7 1 6 4 3
## [3997] 3 6 4 4 8 7 5 1 7 4 4 4 8 4 7 3 4 1 6 1 5 3 5 5 4 1 3 3 5 3 4 1 8 7 4 3 1
## [4034] 6 1 4 4 1 4 5 3 1 3 7 7 1 1 6 8 4 2 7 1 3 3 7 6 3 2 3 5 3 2 1 6 3 7 8 6 7
## [4071] 4 7 6 7 5 5 4 5 7 1 7 6 7 4 7 5 4 4 6 4 7 7 4 4 1 7 6 1 6 1 1 5 1 3 5 7 1
## [4108] 7 6 4 1 1 6 1 1 7 1 3 7 1 2 4 7 4 2 3 1 1 3 6 7 4 2 7 5 7 5 3 1 6 6 7 6 7
## [4145] 4 5 3 6 4 2 5 6 6 4 4 7 4 6 7 6 7 5 1 1 7 4 4 8 7 7 7 7 4 4 5 4 7 4 5 7 7
## [4182] 4 7 4 5 1 5 7 4 3 4 5 3 4 7 7 4 3 6 4 1 3 6 2 3 4 4 7 3 6 7 8 2 3 3 6 3 4
## [4219] 4 1 4 6 7 2 4 3 8 8 6 5 3 7 4 3 1 4 6 7 3 4 1 7 7 5 1 3 7 7 6 3 4 5 4 1 7
## [4256] 1 2 1 1 7 3 7 6 6 3 3 7 4 4 4 6 1 4 5 1 6 4 1 4 2 1 8 4 1 1 3 8 4 6 1 8 1
## [4293] 3 1 6 4 2 3 1 7 7 1 7 4 8 3 7 6 7 3 4 4 3 4 6 7 4 4 4 6 3 2 1 6 3 7 3 3 7
## [4330] 1 3 3 8 4 2 8 1 1 6 4 3 8 3 4 6 4 6 1 5 4 7 3 1 8 4 7 1 1 7 7 4 3 4 4 4 4
## [4367] 4 7 7 4 3 1
## Levels: 1 2 3 4 5 6 7 8

head(k_mod8)

## $cluster
##    [1] 7 3 1 1 2 5 7 6 2 3 3 1 3 3 7 3 6 1 6 4 3 1 1 2 1 1 8 8 1 3 1 8 4 2 3 4 5
##   [38] 1 1 3 3 1 6 7 7 4 8 3 1 3 3 6 1 1 6 3 3 6 4 1 6 3 6 1 6 1 3 3 4 3 3 3 1 8
##   [75] 2 3 3 7 4 3 4 1 6 4 3 7 3 1 6 4 8 3 8 1 6 1 1 1 1 6 3 3 3 3 1 3 3 1 1 3 3
##  [112] 3 3 1 2 3 4 4 6 1 4 4 3 8 8 7 4 7 7 6 1 7 6 4 4 6 2 1 3 3 4 3 6 4 3 3 1 4
##  [149] 3 8 4 4 6 1 3 4 3 3 1 4 1 1 7 7 1 7 4 3 5 1 4 6 3 7 3 6 7 4 3 3 4 1 7 7 1
##  [186] 5 3 4 6 4 6 3 3 8 4 4 4 4 8 6 6 6 3 4 3 3 1 3 6 4 4 4 7 5 1 3 1 4 3 6 3 1
##  [223] 4 4 3 1 3 7 6 6 8 3 3 1 1 4 3 8 3 1 6 1 7 1 8 6 1 1 3 6 6 1 7 6 8 1 3 1 1
##  [260] 4 4 3 1 7 7 4 3 8 3 7 1 3 1 3 1 1 3 3 3 3 3 7 8 1 2 1 6 1 1 1 3 1 4 4 3 3
##  [297] 6 3 3 6 3 1 3 6 1 6 4 1 3 3 1 1 1 6 3 3 1 6 3 7 6 7 6 7 7 1 4 5 3 3 3 3 7
##  [334] 8 3 8 2 4 3 8 5 3 6 8 3 6 2 1 1 1 3 1 3 1 1 4 1 4 6 7 6 6 1 4 7 1 6 4 6 6
##  [371] 4 7 6 6 7 2 1 7 1 1 4 5 1 1 7 1 7 4 6 6 3 7 5 3 8 3 1 8 1 6 1 1 6 6 8 5 7
##  [408] 3 6 4 7 5 6 3 8 7 4 6 2 2 8 5 1 4 2 1 1 4 1 1 2 1 2 4 4 7 3 7 1 3 4 3 3 1
##  [445] 3 6 8 2 1 4 3 6 4 1 1 3 7 4 3 5 3 1 5 4 8 5 6 7 4 6 8 3 3 1 1 1 4 3 7 3 4
##  [482] 3 5 4 1 7 5 3 7 6 7 8 4 6 4 1 4 6 3 4 4 4 1 4 1 6 6 3 7 7 3 6 4 7 7 5 3 3
##  [519] 3 1 4 3 3 1 1 8 1 4 5 1 7 4 1 6 1 1 2 6 6 4 3 3 4 3 6 1 4 7 2 4 2 1 7 1 4
##  [556] 4 3 7 7 6 5 3 4 7 3 8 1 7 3 3 4 4 8 1 4 3 3 7 7 3 4 1 7 1 2 1 5 3 3 6 1 1
##  [593] 7 6 6 3 3 4 7 1 7 7 8 2 3 3 1 3 6 3 4 7 4 4 1 3 1 6 4 7 1 1 6 5 4 7 8 1 6
##  [630] 1 5 4 4 1 1 3 1 4 3 4 3 3 7 1 7 4 4 6 4 7 3 3 3 1 1 4 5 3 6 1 5 1 2 7 7 1
##  [667] 6 7 3 1 7 7 4 7 3 5 1 6 1 1 6 6 7 6 7 4 3 4 6 6 6 4 4 1 4 4 2 7 3 8 3 3 3
##  [704] 3 2 5 4 7 4 4 1 4 6 1 4 7 3 6 4 6 7 7 3 4 7 6 6 7 6 3 7 1 5 1 1 1 1 3 3 1
##  [741] 3 5 4 4 1 3 4 3 2 1 6 1 3 1 6 6 3 6 6 3 6 4 4 4 1 4 1 1 6 1 6 6 4 3 1 4 3
##  [778] 4 6 7 6 4 3 1 6 5 3 7 3 6 6 1 4 7 3 6 1 1 6 6 4 4 4 3 1 7 6 1 1 3 4 7 3 3
##  [815] 8 3 4 4 1 1 1 4 3 4 3 6 4 1 3 4 3 3 2 2 1 1 3 4 1 7 1 6 5 3 7 3 4 6 6 6 1
##  [852] 7 3 7 4 2 6 1 4 3 2 1 6 2 6 3 1 6 1 1 6 4 4 4 3 6 3 7 1 3 7 7 4 1 1 3 1 4
##  [889] 8 5 4 3 1 4 3 4 6 4 6 3 3 1 4 4 5 8 1 7 3 3 4 5 4 7 8 1 6 4 5 6 1 7 3 6 4
##  [926] 1 3 1 1 7 6 7 4 3 1 3 1 4 8 4 5 4 3 7 5 4 4 4 5 5 1 5 6 1 7 7 1 7 8 3 3 2
##  [963] 3 5 1 1 5 4 1 6 4 3 7 1 6 3 4 1 3 6 6 4 3 8 1 7 4 6 3 4 4 7 1 6 7 3 1 7 7
## [1000] 1 7 4 4 1 7 3 3 4 2 3 7 3 1 6 6 6 3 4 7 7 8 7 5 2 1 6 4 8 7 3 1 4 1 6 6 4
## [1037] 3 5 6 4 6 1 3 1 6 7 7 6 1 2 6 6 7 3 3 3 1 4 1 7 1 5 3 3 3 5 4 3 7 1 7 5 1
## [1074] 7 4 1 4 4 3 6 6 4 8 7 3 4 4 7 1 7 1 2 4 1 1 3 4 4 6 6 5 1 1 7 1 4 7 3 4 6
## [1111] 1 7 5 7 3 1 4 1 2 5 5 8 1 3 2 4 7 1 3 6 4 4 1 1 8 3 3 6 6 8 4 4 1 3 3 1 3
## [1148] 1 6 4 6 6 2 3 4 6 4 3 4 7 1 6 3 4 3 3 1 4 1 4 7 4 3 1 4 4 1 2 4 1 2 6 6 6
## [1185] 7 4 1 1 3 4 4 7 3 1 6 8 1 1 6 5 7 1 4 4 6 7 3 3 4 7 4 3 2 4 1 4 3 3 4 3 4
## [1222] 3 1 2 1 4 3 3 1 3 2 1 6 3 3 6 6 2 6 4 1 8 1 1 6 6 1 2 4 4 3 3 3 1 1 6 7 1
## [1259] 4 3 7 5 2 7 1 6 3 1 3 4 7 4 2 3 3 7 3 3 1 7 1 7 5 4 1 6 4 6 2 4 8 7 5 3 4
## [1296] 3 4 7 3 5 3 4 3 7 8 1 7 1 3 4 4 3 1 3 1 2 1 7 7 3 4 3 4 6 1 1 6 3 6 3 1 4
## [1333] 1 1 6 7 1 3 4 7 7 1 1 6 7 3 1 4 3 8 7 8 1 7 1 6 1 4 3 6 1 3 5 3 4 7 3 3 3
## [1370] 1 3 2 2 1 7 1 4 4 6 7 3 3 3 4 7 1 3 1 3 4 4 6 3 6 6 8 3 3 1 6 3 1 5 3 4 7
## [1407] 7 3 1 7 7 3 8 6 7 2 3 3 6 3 3 7 1 3 6 6 6 6 7 4 4 1 3 7 3 4 1 3 4 2 1 3 3
## [1444] 3 1 4 1 3 3 4 2 7 8 8 3 3 7 1 7 3 4 6 5 6 7 2 3 6 1 4 3 1 1 6 7 7 3 4 6 4
## [1481] 6 6 4 7 7 6 7 4 7 1 4 1 3 4 8 3 7 7 7 6 2 1 4 5 1 4 7 3 3 1 3 7 3 1 3 6 3
## [1518] 6 5 7 8 3 8 5 2 1 7 5 3 4 3 5 4 1 3 7 4 3 4 5 6 3 4 7 7 7 8 3 1 1 5 5 1 1
## [1555] 5 6 5 4 7 3 7 6 2 8 3 2 8 3 1 1 8 4 4 1 7 4 6 4 6 3 7 4 4 5 1 6 2 3 4 4 6
## [1592] 6 3 5 4 4 3 3 5 3 3 5 4 1 7 6 1 3 4 4 4 4 7 3 3 3 4 5 3 6 1 3 3 7 4 4 1 1
## [1629] 5 7 3 3 3 3 2 6 1 4 6 5 3 4 4 3 1 3 8 2 1 4 7 3 8 7 5 4 4 4 5 8 4 7 5 7 5
## [1666] 5 5 1 3 1 4 6 4 2 3 3 1 4 2 4 6 6 3 6 5 4 6 3 7 1 5 1 7 6 4 4 3 3 4 4 6 1
## [1703] 6 3 7 5 5 4 3 3 6 5 4 3 4 4 5 5 5 4 3 8 6 6 1 5 3 7 3 4 7 5 2 3 7 1 3 6 7
## [1740] 3 7 5 7 3 3 3 1 5 7 1 3 5 3 1 3 4 1 1 5 1 7 5 1 7 6 3 1 3 3 3 1 1 3 6 1 1
## [1777] 6 6 1 4 4 4 3 1 4 6 3 7 4 6 4 4 3 4 3 6 7 1 3 4 6 6 4 7 4 4 1 4 1 4 4 1 7
## [1814] 3 4 4 3 4 6 4 1 4 3 3 7 1 7 6 1 4 4 7 6 1 3 2 1 4 1 4 8 7 3 3 3 2 3 7 4 3
## [1851] 4 3 6 1 1 1 4 4 1 4 4 3 6 3 1 2 5 6 1 5 1 4 4 1 2 6 1 6 7 7 6 1 1 3 6 1 5
## [1888] 5 4 3 1 6 3 4 1 3 1 1 4 1 6 6 1 1 2 4 8 1 2 8 2 3 1 3 4 4 1 1 4 3 4 1 7 6
## [1925] 1 4 3 7 5 7 6 4 4 4 1 5 7 6 4 4 1 3 7 4 6 4 6 4 4 6 1 8 8 3 5 7 5 4 5 4 7
## [1962] 4 4 6 3 5 3 3 1 1 1 1 4 5 8 3 3 4 5 5 3 6 7 4 3 2 3 6 5 7 1 5 7 1 5 6 3 5
## [1999] 5 3 1 2 3 1 8 5 6 7 6 1 6 1 6 3 6 4 7 2 1 3 6 4 6 3 6 4 4 2 4 2 4 1 6 3 5
## [2036] 7 6 6 1 1 3 3 4 1 1 7 7 6 4 8 3 4 3 4 5 3 6 1 6 1 7 1 7 8 4 7 3 1 8 6 1 6
## [2073] 3 3 4 4 1 3 4 3 7 4 5 6 7 4 2 3 7 4 7 3 7 1 6 1 4 1 3 3 6 4 3 1 1 7 4 5 3
## [2110] 2 1 4 1 6 1 7 6 3 1 4 3 2 8 7 2 6 2 6 7 1 3 6 6 7 8 2 5 1 1 1 8 4 4 8 6 2
## [2147] 3 3 1 1 6 1 7 7 6 8 7 7 7 4 6 7 1 4 3 3 1 1 4 4 4 7 7 3 4 4 3 1 3 3 7 3 1
## [2184] 3 1 4 3 6 1 1 7 6 3 1 7 6 4 7 1 7 4 3 1 6 6 4 1 4 6 2 6 4 1 1 6 4 1 4 7 7
## [2221] 4 6 7 3 6 4 3 3 4 2 2 6 5 1 8 4 7 3 8 3 7 5 8 1 2 3 6 4 6 7 2 1 4 3 7 7 7
## [2258] 1 1 2 6 2 1 5 7 3 5 7 1 6 3 4 4 1 7 4 2 5 5 4 1 4 1 1 4 5 6 7 1 2 3 5 7 7
## [2295] 6 1 4 1 5 7 6 6 4 6 7 4 8 3 1 1 4 4 1 6 1 4 1 6 3 6 3 3 7 1 8 1 3 5 4 3 1
## [2332] 3 6 4 8 5 6 6 7 5 7 3 3 4 7 3 1 3 1 4 4 5 4 3 7 3 5 3 5 1 6 7 1 4 7 7 3 4
## [2369] 3 8 1 4 7 1 7 3 4 4 1 7 5 4 4 1 6 3 1 3 5 8 1 7 7 1 8 1 5 6 4 6 7 4 4 3 6
## [2406] 4 4 1 3 1 4 4 1 8 7 1 7 4 1 4 3 1 4 5 1 3 6 6 6 1 3 1 3 4 1 4 7 6 3 8 6 8
## [2443] 1 6 6 2 4 4 2 1 6 1 4 6 4 5 2 7 4 8 4 7 1 7 3 3 8 4 3 1 4 5 1 1 7 3 7 4 7
## [2480] 4 3 6 3 4 6 5 7 8 7 1 5 3 7 1 6 1 8 7 3 5 1 3 7 7 1 3 4 7 1 2 7 6 1 3 4 4
## [2517] 1 4 1 7 1 4 2 3 3 7 4 3 5 1 4 7 4 1 3 4 6 3 4 4 7 7 6 6 4 3 4 3 3 5 6 4 1
## [2554] 1 6 3 2 5 8 1 7 4 3 3 1 1 8 1 5 3 6 6 1 8 3 7 1 1 7 6 8 8 6 4 1 6 3 1 4 4
## [2591] 3 1 4 1 7 4 3 4 5 7 4 3 6 3 4 5 5 3 5 4 1 1 6 3 7 1 5 3 5 6 6 6 1 6 4 4 6
## [2628] 6 7 7 7 1 7 1 5 3 4 5 5 7 5 7 5 7 6 5 6 6 2 7 7 4 3 1 2 4 6 8 7 2 2 7 1 1
## [2665] 1 3 1 1 3 3 4 4 4 5 1 1 2 1 7 3 4 6 1 1 8 3 5 3 6 4 5 4 1 4 3 4 5 3 1 3 5
## [2702] 7 3 4 1 6 3 5 3 5 5 5 4 4 3 1 6 5 4 4 4 4 3 6 6 3 6 1 6 1 1 1 1 1 6 4 5 7
## [2739] 4 1 6 7 1 3 5 7 1 6 6 5 1 4 6 7 3 7 1 4 3 6 6 5 1 6 6 7 1 2 7 8 1 1 1 1 4
## [2776] 2 4 1 1 6 5 7 7 7 3 6 7 4 1 5 1 4 7 7 3 1 1 8 3 4 6 1 7 4 1 4 6 3 7 3 6 6
## [2813] 7 4 3 6 1 3 1 2 1 3 7 2 1 3 1 3 4 6 1 6 6 4 7 4 8 4 8 4 1 1 3 3 1 4 4 3 6
## [2850] 4 5 3 6 4 1 5 1 4 1 8 3 4 1 4 6 4 6 7 3 5 8 5 5 7 2 1 6 1 4 1 4 4 3 3 3 1
## [2887] 6 1 7 4 8 6 7 3 3 2 7 3 1 5 7 3 1 1 6 5 6 6 6 2 4 5 1 7 5 5 7 7 3 1 7 4 7
## [2924] 3 6 6 1 1 4 4 7 3 6 4 2 6 4 1 7 5 4 3 3 4 5 3 4 7 7 5 3 4 1 7 4 1 5 7 1 7
## [2961] 4 3 4 7 1 3 1 3 5 1 4 1 1 4 5 1 5 5 5 5 5 2 6 3 1 5 4 1 1 7 1 6 3 5 5 8 1
## [2998] 6 3 6 7 4 7 4 3 3 4 4 4 4 4 1 5 6 3 4 7 6 3 7 4 7 4 6 4 4 5 5 3 4 5 1 4 4
## [3035] 7 7 6 2 4 4 8 8 7 3 5 7 4 1 5 5 4 5 5 7 6 3 4 3 4 1 1 4 7 6 4 4 1 1 6 5 5
## [3072] 3 7 6 4 6 1 4 4 2 7 5 1 8 4 7 4 4 8 3 3 7 4 4 6 1 1 5 1 6 1 4 2 7 3 8 6 2
## [3109] 8 1 4 3 4 3 1 1 1 7 1 6 4 3 5 6 1 4 7 7 2 7 1 2 7 4 4 3 4 4 1 4 4 7 1 4 4
## [3146] 4 3 3 7 7 1 4 6 1 7 3 7 4 1 7 1 6 3 4 3 1 3 7 1 3 1 7 1 6 6 7 4 4 3 1 6 3
## [3183] 3 5 7 7 1 7 4 1 1 5 3 1 3 5 1 3 7 4 8 1 3 1 3 1 4 4 2 1 2 7 2 3 3 3 5 1 8
## [3220] 3 1 3 3 8 4 2 3 6 3 4 7 3 1 8 5 6 5 3 1 4 1 3 4 7 2 4 3 5 3 3 1 1 5 1 7 4
## [3257] 2 8 7 7 4 1 2 1 6 3 7 6 3 1 6 5 3 4 1 3 1 4 4 3 6 6 3 4 5 4 5 3 7 4 5 6 4
## [3294] 5 8 4 1 6 8 6 7 5 7 1 2 3 3 6 5 3 6 6 1 1 4 7 7 4 7 1 6 7 4 3 6 3 3 1 3 4
## [3331] 4 4 7 6 1 4 4 4 2 6 4 4 7 5 3 4 3 3 5 4 5 4 1 7 4 5 4 8 5 5 6 4 6 5 5 4 8
## [3368] 1 3 3 1 5 4 5 3 7 4 1 5 2 5 8 4 3 1 7 2 3 1 1 3 4 1 1 4 3 3 3 6 3 6 6 1 1
## [3405] 6 7 4 3 6 4 2 4 5 7 7 7 1 6 1 1 4 7 4 1 6 4 3 3 3 1 3 4 1 7 5 7 1 2 7 4 3
## [3442] 1 1 1 1 4 4 1 3 3 4 5 4 4 4 7 5 2 4 1 1 1 6 1 4 2 1 5 3 1 6 6 1 6 3 8 6 1
## [3479] 2 1 1 3 7 8 6 1 1 7 3 3 6 3 5 1 1 4 4 4 4 3 6 3 8 3 3 3 3 3 7 1 1 5 1 1 7
## [3516] 6 3 5 7 4 5 1 7 7 1 6 7 2 6 4 8 7 3 1 6 1 6 3 6 2 1 6 1 4 2 4 4 4 4 1 5 3
## [3553] 3 4 3 7 4 1 7 4 3 7 1 2 6 5 4 3 4 7 3 6 4 3 1 7 1 5 4 3 6 4 4 3 7 3 5 7 3
## [3590] 4 3 1 4 6 6 1 3 6 8 3 1 4 7 4 5 1 3 2 6 3 1 7 4 6 1 7 6 4 5 1 7 6 4 7 5 1
## [3627] 6 2 3 4 6 7 4 8 8 4 5 5 5 5 2 3 1 4 6 1 4 1 6 3 7 7 1 2 1 3 3 1 6 5 5 1 7
## [3664] 1 4 7 4 2 8 3 7 3 8 7 4 1 3 4 5 7 1 4 2 4 7 1 6 4 5 4 6 3 3 7 5 4 1 5 1 6
## [3701] 6 4 3 1 3 4 4 4 4 1 1 4 3 2 6 7 1 1 6 8 3 4 3 5 8 7 2 1 1 1 4 4 3 4 3 4 3
## [3738] 1 1 3 4 3 6 4 6 1 1 3 4 6 7 3 2 8 7 4 7 3 3 3 4 6 7 7 6 1 5 4 5 1 3 7 1 4
## [3775] 1 1 8 4 4 1 4 6 4 3 3 2 1 7 4 6 4 7 1 1 8 6 4 6 6 3 4 3 3 4 7 1 5 7 1 4 1
## [3812] 1 1 7 2 1 1 3 3 2 4 7 7 1 4 1 7 5 7 7 4 7 6 1 2 3 5 7 1 6 4 1 1 5 3 6 5 4
## [3849] 4 7 3 7 1 6 3 7 1 8 6 3 5 3 3 1 1 3 8 4 7 3 4 6 4 5 3 3 3 5 2 2 1 6 4 1 4
## [3886] 1 3 4 3 6 1 1 3 4 4 7 4 6 7 3 6 4 8 6 4 3 3 1 7 3 8 1 3 6 1 1 1 3 4 3 7 1
## [3923] 3 3 4 3 1 3 2 8 4 3 4 3 3 3 7 6 7 7 6 3 6 7 3 6 1 1 6 3 3 7 7 7 1 4 7 2 3
## [3960] 7 3 1 8 2 1 3 1 3 3 1 6 1 1 3 1 4 3 3 2 3 7 7 6 3 7 1 3 3 5 4 1 7 1 6 4 3
## [3997] 3 6 4 4 8 7 5 1 7 4 4 4 8 4 7 3 4 1 6 1 5 3 5 5 4 1 3 3 5 3 4 1 8 7 4 3 1
## [4034] 6 1 4 4 1 4 5 3 1 3 7 7 1 1 6 8 4 2 7 1 3 3 7 6 3 2 3 5 3 2 1 6 3 7 8 6 7
## [4071] 4 7 6 7 5 5 4 5 7 1 7 6 7 4 7 5 4 4 6 4 7 7 4 4 1 7 6 1 6 1 1 5 1 3 5 7 1
## [4108] 7 6 4 1 1 6 1 1 7 1 3 7 1 2 4 7 4 2 3 1 1 3 6 7 4 2 7 5 7 5 3 1 6 6 7 6 7
## [4145] 4 5 3 6 4 2 5 6 6 4 4 7 4 6 7 6 7 5 1 1 7 4 4 8 7 7 7 7 4 4 5 4 7 4 5 7 7
## [4182] 4 7 4 5 1 5 7 4 3 4 5 3 4 7 7 4 3 6 4 1 3 6 2 3 4 4 7 3 6 7 8 2 3 3 6 3 4
## [4219] 4 1 4 6 7 2 4 3 8 8 6 5 3 7 4 3 1 4 6 7 3 4 1 7 7 5 1 3 7 7 6 3 4 5 4 1 7
## [4256] 1 2 1 1 7 3 7 6 6 3 3 7 4 4 4 6 1 4 5 1 6 4 1 4 2 1 8 4 1 1 3 8 4 6 1 8 1
## [4293] 3 1 6 4 2 3 1 7 7 1 7 4 8 3 7 6 7 3 4 4 3 4 6 7 4 4 4 6 3 2 1 6 3 7 3 3 7
## [4330] 1 3 3 8 4 2 8 1 1 6 4 3 8 3 4 6 4 6 1 5 4 7 3 1 8 4 7 1 1 7 7 4 3 4 4 4 4
## [4367] 4 7 7 4 3 1
## 
## $centers
##   rec_bins freq_bins mon_bins
## 1 1.838303  2.618119 2.903670
## 2 4.752874  1.000000 2.390805
## 3 1.467059  4.790588 4.927059
## 4 2.251185  1.534360 1.485782
## 5 1.811688  4.795455 2.772727
## 6 4.699115  2.419469 2.274336
## 7 4.845501  1.217317 1.000000
## 8 4.017647  4.017647 4.311765
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 1171.9427  139.7989  695.7800  981.5818  283.2825  488.9133  177.1239
## [8]  422.3706
## 
## $tot.withinss
## [1] 4360.794
## 
## $betweenss
## [1] 24389.59

Accuracy of the cluster with number of clusters 80.8483222

k_mod9=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=9)

df_mod9=cbind(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],"cluster"=k_mod9$cluster)
df_mod9$cluster=as.factor(df_mod9$cluster)

df_mod9$cluster

##    [1] 5 1 4 6 5 3 5 2 5 6 1 3 1 8 5 1 2 3 5 9 8 6 7 5 3 3 4 8 7 1 6 8 9 5 1 7 3
##   [38] 7 7 1 1 6 2 5 5 9 4 1 6 1 8 2 7 7 5 1 1 2 7 3 2 1 4 7 5 3 1 1 9 1 1 1 7 4
##   [75] 5 1 1 5 9 1 9 7 5 9 1 5 1 3 2 9 4 1 4 7 2 3 3 3 3 2 1 1 1 1 7 1 1 3 3 1 1
##  [112] 6 1 3 5 1 9 9 5 3 7 9 6 8 8 5 9 5 5 2 3 5 2 9 7 2 5 7 1 1 7 8 2 9 1 1 3 7
##  [149] 1 4 9 9 2 7 1 9 1 1 3 9 7 3 5 5 7 5 9 1 3 6 9 5 1 5 1 5 5 7 1 1 9 3 5 5 3
##  [186] 3 1 7 5 9 5 1 1 8 9 9 9 9 4 5 2 2 1 7 1 1 3 6 5 9 9 9 5 7 7 1 7 7 1 5 1 7
##  [223] 9 9 1 3 1 5 5 2 4 1 1 3 3 7 8 8 8 3 5 3 5 3 4 2 6 3 1 5 2 3 5 2 4 3 1 3 3
##  [260] 9 9 1 6 5 5 7 1 2 1 5 3 6 3 1 7 3 1 1 1 1 1 5 8 3 5 3 2 7 3 3 1 7 9 9 6 1
##  [297] 5 1 1 2 1 3 1 2 3 2 9 3 1 1 7 3 3 5 1 1 7 2 1 5 5 5 2 5 5 7 7 8 8 1 1 1 5
##  [334] 4 1 4 4 9 1 8 8 6 2 4 1 2 2 7 3 3 1 3 1 3 3 9 3 9 5 5 5 5 7 9 5 6 5 9 5 5
##  [371] 9 5 2 2 5 2 3 5 7 4 7 3 3 3 5 6 5 9 5 5 8 5 1 1 8 1 7 8 3 5 3 3 2 5 4 8 5
##  [408] 1 2 9 5 3 5 1 8 5 9 2 5 5 4 1 3 9 5 3 3 9 7 7 5 3 5 9 9 5 1 5 3 6 9 1 6 6
##  [445] 6 5 8 5 3 9 1 5 9 7 3 6 5 7 1 3 1 3 1 9 4 1 2 5 9 5 8 1 1 6 3 3 9 1 5 1 9
##  [482] 1 8 9 3 5 3 1 5 2 5 4 9 5 9 3 7 2 6 9 9 9 3 9 3 5 2 1 5 5 1 5 9 5 5 1 1 1
##  [519] 8 7 9 1 1 7 3 4 3 9 3 3 5 7 7 2 7 3 5 5 2 9 1 1 7 1 5 7 9 5 5 9 5 3 5 3 9
##  [556] 9 1 5 5 2 1 1 9 5 1 4 3 5 1 1 9 7 8 6 9 1 1 5 5 1 9 3 5 3 5 3 1 1 1 2 3 3
##  [593] 5 5 2 8 1 9 5 3 5 5 8 4 1 1 3 1 2 8 9 5 9 9 3 1 6 2 9 5 3 6 2 1 9 5 4 3 5
##  [630] 3 1 7 9 3 3 1 3 9 1 9 1 1 5 3 5 9 9 2 9 5 1 1 1 3 3 9 8 1 2 3 1 7 5 5 5 7
##  [667] 2 5 8 6 5 5 9 5 1 1 7 5 3 3 5 2 5 2 5 9 1 9 2 2 2 9 9 3 7 9 2 5 1 4 1 1 1
##  [704] 1 5 3 9 5 7 9 3 9 2 3 9 5 1 5 9 2 5 5 6 9 5 5 2 5 5 6 5 3 1 3 3 3 3 6 8 3
##  [741] 1 8 9 9 3 6 7 1 2 3 2 3 8 7 5 2 1 2 5 8 5 9 9 9 3 9 3 7 2 7 2 5 7 1 3 9 1
##  [778] 9 5 5 2 7 8 7 2 3 1 5 1 5 2 3 9 5 1 5 3 7 5 2 9 9 7 1 3 5 2 3 3 1 9 5 1 8
##  [815] 4 1 9 3 3 3 7 9 1 9 1 5 9 3 1 9 6 1 5 5 3 6 1 9 3 5 7 2 3 1 5 1 7 5 2 2 3
##  [852] 5 1 5 9 5 5 7 7 1 5 7 2 5 5 6 3 5 3 3 2 9 9 7 8 5 1 5 3 1 5 5 9 7 3 8 7 9
##  [889] 8 1 9 1 3 9 1 9 5 9 5 1 1 3 7 9 3 8 3 5 8 8 9 3 9 5 4 7 2 9 1 5 3 5 1 2 9
##  [926] 3 1 6 3 5 2 5 9 1 3 6 7 9 8 7 1 9 1 5 3 7 9 9 3 1 7 1 5 3 5 5 3 5 8 6 6 4
##  [963] 1 1 7 3 8 9 7 2 9 1 5 6 5 1 9 3 1 2 2 9 1 8 7 5 9 2 1 9 7 5 3 5 5 1 3 5 5
## [1000] 6 5 7 9 3 5 1 6 9 5 1 5 1 3 5 2 2 1 9 5 5 8 5 1 5 3 2 9 4 5 1 3 9 3 2 5 9
## [1037] 1 1 5 9 5 7 1 3 2 5 5 2 4 5 2 2 5 1 1 1 3 7 3 5 4 8 1 1 8 1 7 1 5 3 5 1 6
## [1074] 5 7 3 9 9 1 2 5 7 4 5 1 7 9 5 6 5 3 5 9 3 7 1 9 9 2 2 3 3 6 5 7 9 5 6 9 5
## [1111] 3 5 1 5 8 3 9 3 2 8 8 4 3 1 5 9 5 3 1 5 7 9 3 6 8 1 1 2 5 8 9 9 7 1 1 3 1
## [1148] 3 5 9 5 2 5 1 9 2 9 1 9 5 3 2 8 9 8 8 3 9 3 7 5 7 1 3 9 7 3 2 9 7 5 2 2 5
## [1185] 5 9 3 3 6 9 9 5 1 3 2 8 6 3 5 1 5 7 9 9 2 5 1 1 9 5 9 1 5 9 7 9 1 1 9 1 9
## [1222] 1 7 5 3 9 1 1 3 1 5 6 2 1 6 2 2 5 2 7 7 8 3 3 5 5 3 5 9 9 1 1 1 3 3 5 5 7
## [1259] 9 1 5 1 4 5 3 2 1 3 1 9 5 9 2 1 1 5 1 1 3 5 7 5 1 9 3 2 9 2 5 9 8 5 1 1 3
## [1296] 1 9 5 1 3 1 9 1 5 4 3 5 7 8 9 9 1 3 1 3 5 3 5 5 1 9 1 9 2 7 3 2 1 2 1 3 9
## [1333] 3 3 5 5 6 1 9 5 5 3 7 2 5 1 3 9 1 8 5 4 4 5 3 2 3 9 8 5 7 1 1 1 7 5 6 1 1
## [1370] 7 1 2 5 3 5 7 3 9 5 5 6 8 8 7 5 3 1 6 1 9 9 5 1 2 2 8 6 1 7 2 1 3 1 6 9 5
## [1407] 5 1 3 5 5 1 8 2 5 5 1 6 2 8 1 5 3 1 5 2 2 5 5 7 7 7 1 5 1 9 6 1 9 5 3 1 1
## [1444] 1 3 9 3 1 1 9 5 5 8 4 8 1 5 3 5 1 7 5 1 2 5 5 1 2 3 7 1 3 6 5 5 5 1 9 2 9
## [1481] 2 5 9 5 5 2 5 9 5 7 9 3 1 9 4 1 5 5 5 5 5 3 7 3 3 9 5 1 1 3 1 5 1 7 1 2 1
## [1518] 2 1 5 4 1 4 3 2 3 5 8 1 9 1 1 7 7 1 5 9 1 9 1 5 1 9 5 5 5 4 6 3 3 8 1 3 3
## [1555] 1 5 8 3 5 1 5 4 5 8 8 5 8 6 3 3 8 9 9 7 5 9 5 9 5 1 5 9 9 1 7 5 5 1 9 9 5
## [1592] 5 1 1 9 9 1 1 1 1 1 3 9 3 5 2 7 1 9 9 9 9 5 1 1 1 9 8 1 2 6 1 8 5 9 7 3 3
## [1629] 8 5 1 1 1 1 2 5 3 9 5 1 1 7 9 6 7 1 8 2 3 9 5 1 8 5 1 9 9 9 1 2 9 5 1 5 1
## [1666] 3 3 3 1 3 9 5 9 2 1 1 6 9 5 9 5 5 1 5 1 9 2 1 5 7 1 3 5 5 9 9 8 1 9 9 2 3
## [1703] 5 1 5 1 8 9 1 6 5 1 9 1 9 9 1 3 8 9 1 8 8 2 6 3 6 5 1 9 5 1 5 1 5 3 6 2 5
## [1740] 1 5 1 5 1 1 1 3 1 5 3 1 3 1 3 1 9 3 3 1 3 5 1 3 5 2 1 3 1 1 1 3 3 6 2 3 3
## [1777] 2 5 3 9 7 9 1 3 7 2 1 5 9 5 9 9 1 9 1 2 5 7 8 9 2 5 7 5 9 9 3 9 3 9 9 3 5
## [1814] 1 9 9 1 7 2 9 3 9 1 1 5 3 5 2 7 9 9 5 2 3 1 4 3 9 6 9 8 5 8 1 8 5 1 5 9 8
## [1851] 9 8 2 3 7 3 9 9 3 9 9 1 2 1 3 5 3 5 3 1 7 9 9 3 2 5 4 5 5 5 5 3 7 1 2 3 1
## [1888] 3 9 1 3 5 1 9 3 1 3 3 9 7 2 2 3 3 5 9 8 3 5 4 4 1 4 1 9 9 3 3 7 1 9 3 5 5
## [1925] 7 9 1 5 1 5 2 9 9 9 7 1 5 2 9 9 7 8 5 9 2 9 5 9 9 2 3 8 8 1 8 5 1 9 8 9 5
## [1962] 9 9 5 1 1 1 1 3 7 3 3 9 1 4 1 1 9 8 1 1 5 5 9 1 5 1 5 7 5 6 1 5 3 3 2 1 1
## [1999] 3 1 7 5 1 3 4 3 2 5 2 3 2 7 2 1 2 9 5 5 3 1 5 7 5 1 2 9 9 2 7 5 9 3 2 1 3
## [2036] 5 2 5 3 3 1 1 9 3 3 5 5 2 9 4 1 9 1 9 8 6 5 3 2 3 5 3 5 4 9 5 1 3 2 5 3 2
## [2073] 1 1 9 7 3 1 9 1 5 9 8 5 5 9 2 1 5 9 5 1 5 7 5 3 7 3 6 1 2 7 1 6 3 5 7 8 1
## [2110] 5 7 9 3 5 7 5 5 1 3 9 1 5 8 5 5 5 5 5 5 3 8 5 2 5 8 5 3 3 3 6 8 7 7 4 5 5
## [2147] 1 1 3 3 2 7 5 5 5 4 5 5 5 7 2 5 6 9 6 1 7 3 9 7 9 5 5 8 9 9 6 3 1 1 5 1 3
## [2184] 1 4 7 1 5 7 7 5 5 1 7 5 5 7 5 3 5 9 1 7 2 5 9 3 9 4 2 2 9 7 4 2 7 3 9 5 5
## [2221] 9 2 5 1 2 9 1 1 9 5 5 2 1 7 8 9 5 1 4 1 5 1 8 6 5 1 2 9 5 5 5 3 9 6 5 5 5
## [2258] 3 3 2 5 5 3 1 5 8 3 5 3 2 8 7 9 7 5 9 5 1 1 9 3 9 7 3 9 1 5 5 7 5 1 1 5 5
## [2295] 5 3 9 3 1 5 2 5 9 5 5 9 8 1 7 3 9 9 3 2 3 7 3 2 1 5 1 6 5 3 8 3 1 1 9 1 3
## [2332] 1 5 9 8 1 2 2 5 1 5 1 1 9 5 8 3 1 3 9 9 1 9 1 5 1 1 1 1 3 2 5 3 9 5 5 1 7
## [2369] 1 8 3 9 5 7 5 1 9 9 3 5 1 9 9 3 2 1 3 1 3 8 3 5 5 7 8 3 1 5 9 5 5 9 9 1 2
## [2406] 9 9 3 1 3 9 9 3 4 5 3 5 9 3 9 1 3 9 1 3 1 2 2 2 7 1 3 1 9 7 9 5 2 1 8 5 8
## [2443] 3 5 5 2 9 7 2 3 5 3 9 2 9 3 5 5 9 8 9 5 3 5 6 8 8 7 1 3 9 1 3 3 5 1 5 9 5
## [2480] 9 6 5 1 9 2 1 5 8 5 7 1 1 5 3 2 3 8 5 1 3 3 6 5 5 3 1 9 5 7 5 5 2 3 1 9 9
## [2517] 3 9 3 5 3 9 4 1 1 5 9 1 8 7 9 5 7 3 8 9 2 1 9 9 5 5 2 5 9 6 9 6 1 1 5 9 3
## [2554] 3 5 1 4 8 8 3 5 9 1 1 3 3 8 3 8 1 4 2 6 4 1 5 3 3 5 5 4 8 2 9 7 2 8 3 9 7
## [2591] 1 3 7 7 5 9 1 9 3 5 9 1 2 1 9 1 1 1 1 9 6 3 2 1 5 3 3 8 3 8 5 5 3 2 9 9 2
## [2628] 2 5 5 5 3 5 3 3 6 9 1 1 5 1 5 1 5 5 3 5 5 5 5 5 7 1 3 5 9 2 4 5 5 5 5 4 3
## [2665] 3 1 3 3 1 1 9 9 9 1 3 3 5 6 5 1 7 2 3 7 4 1 1 1 2 9 1 9 3 9 1 7 8 1 6 1 3
## [2702] 5 1 9 3 2 1 3 1 1 1 1 9 9 1 3 2 3 3 9 9 7 1 5 2 1 5 7 2 3 7 6 3 3 2 9 1 5
## [2739] 7 3 2 5 3 1 8 5 3 5 2 3 3 9 5 5 1 5 3 9 8 2 5 1 7 5 2 5 3 5 5 4 3 3 6 3 7
## [2776] 5 9 6 7 5 1 5 5 5 1 5 5 9 7 8 7 9 5 5 1 3 6 4 1 9 5 7 5 9 7 7 5 1 5 1 2 2
## [2813] 5 9 1 4 6 1 3 5 7 1 5 5 3 1 6 1 9 2 3 2 2 9 5 9 8 9 4 9 7 3 1 1 3 9 9 1 5
## [2850] 9 1 1 5 7 3 3 7 9 3 4 1 7 3 9 2 9 2 5 6 3 8 8 1 5 5 7 5 3 7 3 7 7 1 1 1 3
## [2887] 2 3 5 9 4 5 5 1 1 2 5 1 3 1 5 1 7 7 2 1 2 2 5 2 9 1 4 5 1 1 5 5 1 3 5 9 5
## [2924] 1 2 2 6 7 9 9 5 8 2 9 5 2 9 3 5 8 9 1 1 9 1 6 9 5 5 8 6 9 3 5 9 3 1 5 3 5
## [2961] 9 1 7 5 3 1 3 1 1 3 9 3 3 9 1 3 1 8 3 8 1 2 5 1 4 8 7 7 3 5 7 5 1 3 8 4 3
## [2998] 2 1 2 5 7 5 9 1 1 9 9 9 9 9 3 3 2 1 9 5 5 1 5 9 5 9 2 9 9 1 1 1 7 3 3 9 9
## [3035] 5 5 2 5 9 9 8 8 5 1 1 5 9 3 1 1 9 1 8 5 5 1 7 8 9 3 7 9 5 5 7 9 3 7 2 3 3
## [3072] 1 5 5 9 2 3 9 9 5 5 1 3 8 9 5 7 9 8 1 1 5 9 9 5 3 6 1 3 2 3 9 5 5 1 8 2 5
## [3109] 4 3 9 8 9 1 3 3 7 5 3 2 9 1 1 2 7 7 5 5 5 5 7 5 5 7 9 1 9 7 7 9 9 5 3 9 9
## [3146] 7 1 1 5 5 3 7 5 3 5 1 5 9 7 5 7 5 1 7 1 7 1 5 3 1 3 5 3 5 2 5 9 7 8 3 2 1
## [3183] 6 1 5 5 3 5 9 7 3 1 1 6 1 7 3 1 5 9 4 3 1 7 1 3 9 9 2 7 2 5 4 1 1 1 3 3 4
## [3220] 1 6 1 1 2 7 5 1 2 1 9 5 1 7 8 1 5 1 1 7 9 7 8 9 5 5 9 1 1 8 1 3 3 3 6 5 9
## [3257] 4 8 5 5 7 3 5 3 5 1 5 2 1 3 5 8 1 9 7 1 7 7 9 1 2 5 1 9 8 9 3 1 5 9 1 2 7
## [3294] 1 8 7 3 2 8 2 5 1 5 3 5 1 1 2 3 1 2 5 3 3 7 5 5 9 5 3 5 5 9 1 5 1 1 7 1 9
## [3331] 9 9 5 5 3 9 9 9 5 2 9 9 5 1 1 7 1 8 1 9 1 9 7 5 9 3 9 8 1 3 5 7 5 3 1 3 4
## [3368] 3 1 1 7 1 7 1 1 5 9 3 3 5 1 8 7 1 3 5 5 8 3 3 1 7 3 7 9 1 8 1 2 1 5 2 3 7
## [3405] 2 5 9 6 5 9 5 9 3 5 5 5 6 5 3 3 9 5 7 6 2 7 1 8 1 6 1 9 3 5 3 5 3 2 5 9 1
## [3442] 7 3 3 3 9 9 3 1 1 9 1 9 9 9 5 8 2 9 3 7 3 5 7 9 5 3 3 1 3 2 5 7 2 1 8 5 3
## [3479] 5 3 7 1 5 8 2 3 7 5 1 1 2 1 1 3 3 9 9 9 9 6 2 1 8 1 1 6 1 1 5 3 3 1 3 6 5
## [3516] 2 1 1 5 9 1 3 5 5 3 5 5 5 5 9 8 5 1 6 2 3 5 1 5 5 3 2 6 9 2 9 7 9 9 3 3 1
## [3553] 1 9 1 5 9 3 5 9 6 5 3 5 2 8 9 6 9 5 6 2 9 1 6 5 3 3 7 1 2 9 9 1 5 1 8 5 1
## [3590] 9 1 3 7 2 5 3 1 2 4 1 3 9 5 9 1 3 1 5 2 1 7 5 3 2 3 5 2 9 3 3 5 8 7 5 8 3
## [3627] 2 2 1 9 2 5 9 8 8 9 1 1 1 3 5 1 3 9 2 3 9 3 5 6 5 5 7 5 6 1 1 6 2 1 1 3 5
## [3664] 3 9 5 7 5 8 1 5 1 8 5 9 3 1 9 1 5 3 9 4 9 5 3 2 9 3 9 5 1 1 5 1 7 3 1 3 5
## [3701] 2 9 1 3 1 9 3 9 3 6 3 7 1 5 2 5 6 3 2 8 6 9 1 3 8 5 2 3 3 3 9 9 1 9 1 9 1
## [3738] 3 3 1 9 1 2 9 2 3 7 1 9 5 5 1 5 8 5 9 5 1 1 1 9 2 5 5 4 3 1 7 1 7 1 5 3 9
## [3775] 6 3 8 9 7 3 7 5 7 6 1 5 3 5 9 5 9 5 3 3 8 2 9 2 5 8 9 1 1 9 5 3 1 5 6 7 3
## [3812] 3 3 5 5 3 7 1 1 5 9 5 5 3 9 3 5 3 5 5 9 5 2 3 2 6 3 5 3 2 9 3 3 1 1 5 1 9
## [3849] 9 5 1 5 3 5 1 5 3 8 2 8 1 8 1 7 3 1 4 9 5 1 9 2 9 1 1 8 1 7 5 5 3 5 9 3 9
## [3886] 3 1 9 1 5 3 3 1 9 9 5 9 2 5 1 2 9 4 2 9 1 1 3 5 6 4 3 1 2 6 3 3 8 9 6 5 3
## [3923] 1 1 7 1 3 1 5 4 9 1 9 1 1 1 5 2 5 5 2 1 5 5 1 5 6 3 2 1 1 5 5 5 3 9 5 5 1
## [3960] 5 1 3 8 4 7 1 3 1 1 7 5 3 7 1 3 9 1 6 5 1 5 5 2 1 5 6 1 1 3 9 3 5 3 2 9 1
## [3997] 1 2 7 3 8 5 1 3 5 7 9 7 8 7 5 1 9 3 2 3 1 1 1 8 9 3 6 1 1 1 9 3 4 5 9 1 3
## [4034] 2 3 9 9 3 9 1 1 3 1 5 5 4 7 5 8 9 5 5 3 6 1 5 5 1 5 8 3 1 5 3 2 1 5 4 2 5
## [4071] 9 5 5 5 1 1 3 1 5 3 5 2 5 9 5 8 9 9 8 9 5 5 9 9 7 5 5 3 5 7 3 3 7 1 8 5 6
## [4108] 5 2 9 3 6 2 3 7 5 3 6 5 6 5 9 5 9 5 6 7 3 1 5 5 9 5 5 1 5 3 1 3 5 5 5 5 5
## [4145] 9 1 1 2 9 5 1 2 5 9 9 5 9 5 5 2 5 8 3 3 5 3 9 4 5 5 5 5 9 3 1 9 5 9 1 5 5
## [4182] 9 5 9 3 3 3 5 9 1 9 3 1 9 5 5 7 1 5 9 3 6 2 2 1 9 9 5 1 5 5 4 5 1 1 5 1 9
## [4219] 9 3 9 2 5 4 9 6 4 4 5 1 1 5 9 1 3 9 5 5 1 9 3 5 5 8 3 1 5 5 2 1 9 1 7 3 5
## [4256] 3 2 3 7 5 1 5 2 2 6 1 5 9 9 9 2 3 7 1 3 5 7 6 9 5 3 8 9 3 7 1 4 9 5 3 8 6
## [4293] 1 3 2 9 5 6 7 5 5 7 5 7 8 1 5 2 5 8 9 9 1 9 5 5 9 9 9 5 1 5 3 2 1 5 1 1 5
## [4330] 3 1 6 8 7 5 8 3 3 2 9 1 4 1 9 2 9 5 4 3 9 5 1 6 8 9 5 3 7 5 5 9 1 9 9 9 9
## [4367] 9 5 5 9 1 6
## Levels: 1 2 3 4 5 6 7 8 9

head(k_mod9)

## $cluster
##    [1] 5 1 4 6 5 3 5 2 5 6 1 3 1 8 5 1 2 3 5 9 8 6 7 5 3 3 4 8 7 1 6 8 9 5 1 7 3
##   [38] 7 7 1 1 6 2 5 5 9 4 1 6 1 8 2 7 7 5 1 1 2 7 3 2 1 4 7 5 3 1 1 9 1 1 1 7 4
##   [75] 5 1 1 5 9 1 9 7 5 9 1 5 1 3 2 9 4 1 4 7 2 3 3 3 3 2 1 1 1 1 7 1 1 3 3 1 1
##  [112] 6 1 3 5 1 9 9 5 3 7 9 6 8 8 5 9 5 5 2 3 5 2 9 7 2 5 7 1 1 7 8 2 9 1 1 3 7
##  [149] 1 4 9 9 2 7 1 9 1 1 3 9 7 3 5 5 7 5 9 1 3 6 9 5 1 5 1 5 5 7 1 1 9 3 5 5 3
##  [186] 3 1 7 5 9 5 1 1 8 9 9 9 9 4 5 2 2 1 7 1 1 3 6 5 9 9 9 5 7 7 1 7 7 1 5 1 7
##  [223] 9 9 1 3 1 5 5 2 4 1 1 3 3 7 8 8 8 3 5 3 5 3 4 2 6 3 1 5 2 3 5 2 4 3 1 3 3
##  [260] 9 9 1 6 5 5 7 1 2 1 5 3 6 3 1 7 3 1 1 1 1 1 5 8 3 5 3 2 7 3 3 1 7 9 9 6 1
##  [297] 5 1 1 2 1 3 1 2 3 2 9 3 1 1 7 3 3 5 1 1 7 2 1 5 5 5 2 5 5 7 7 8 8 1 1 1 5
##  [334] 4 1 4 4 9 1 8 8 6 2 4 1 2 2 7 3 3 1 3 1 3 3 9 3 9 5 5 5 5 7 9 5 6 5 9 5 5
##  [371] 9 5 2 2 5 2 3 5 7 4 7 3 3 3 5 6 5 9 5 5 8 5 1 1 8 1 7 8 3 5 3 3 2 5 4 8 5
##  [408] 1 2 9 5 3 5 1 8 5 9 2 5 5 4 1 3 9 5 3 3 9 7 7 5 3 5 9 9 5 1 5 3 6 9 1 6 6
##  [445] 6 5 8 5 3 9 1 5 9 7 3 6 5 7 1 3 1 3 1 9 4 1 2 5 9 5 8 1 1 6 3 3 9 1 5 1 9
##  [482] 1 8 9 3 5 3 1 5 2 5 4 9 5 9 3 7 2 6 9 9 9 3 9 3 5 2 1 5 5 1 5 9 5 5 1 1 1
##  [519] 8 7 9 1 1 7 3 4 3 9 3 3 5 7 7 2 7 3 5 5 2 9 1 1 7 1 5 7 9 5 5 9 5 3 5 3 9
##  [556] 9 1 5 5 2 1 1 9 5 1 4 3 5 1 1 9 7 8 6 9 1 1 5 5 1 9 3 5 3 5 3 1 1 1 2 3 3
##  [593] 5 5 2 8 1 9 5 3 5 5 8 4 1 1 3 1 2 8 9 5 9 9 3 1 6 2 9 5 3 6 2 1 9 5 4 3 5
##  [630] 3 1 7 9 3 3 1 3 9 1 9 1 1 5 3 5 9 9 2 9 5 1 1 1 3 3 9 8 1 2 3 1 7 5 5 5 7
##  [667] 2 5 8 6 5 5 9 5 1 1 7 5 3 3 5 2 5 2 5 9 1 9 2 2 2 9 9 3 7 9 2 5 1 4 1 1 1
##  [704] 1 5 3 9 5 7 9 3 9 2 3 9 5 1 5 9 2 5 5 6 9 5 5 2 5 5 6 5 3 1 3 3 3 3 6 8 3
##  [741] 1 8 9 9 3 6 7 1 2 3 2 3 8 7 5 2 1 2 5 8 5 9 9 9 3 9 3 7 2 7 2 5 7 1 3 9 1
##  [778] 9 5 5 2 7 8 7 2 3 1 5 1 5 2 3 9 5 1 5 3 7 5 2 9 9 7 1 3 5 2 3 3 1 9 5 1 8
##  [815] 4 1 9 3 3 3 7 9 1 9 1 5 9 3 1 9 6 1 5 5 3 6 1 9 3 5 7 2 3 1 5 1 7 5 2 2 3
##  [852] 5 1 5 9 5 5 7 7 1 5 7 2 5 5 6 3 5 3 3 2 9 9 7 8 5 1 5 3 1 5 5 9 7 3 8 7 9
##  [889] 8 1 9 1 3 9 1 9 5 9 5 1 1 3 7 9 3 8 3 5 8 8 9 3 9 5 4 7 2 9 1 5 3 5 1 2 9
##  [926] 3 1 6 3 5 2 5 9 1 3 6 7 9 8 7 1 9 1 5 3 7 9 9 3 1 7 1 5 3 5 5 3 5 8 6 6 4
##  [963] 1 1 7 3 8 9 7 2 9 1 5 6 5 1 9 3 1 2 2 9 1 8 7 5 9 2 1 9 7 5 3 5 5 1 3 5 5
## [1000] 6 5 7 9 3 5 1 6 9 5 1 5 1 3 5 2 2 1 9 5 5 8 5 1 5 3 2 9 4 5 1 3 9 3 2 5 9
## [1037] 1 1 5 9 5 7 1 3 2 5 5 2 4 5 2 2 5 1 1 1 3 7 3 5 4 8 1 1 8 1 7 1 5 3 5 1 6
## [1074] 5 7 3 9 9 1 2 5 7 4 5 1 7 9 5 6 5 3 5 9 3 7 1 9 9 2 2 3 3 6 5 7 9 5 6 9 5
## [1111] 3 5 1 5 8 3 9 3 2 8 8 4 3 1 5 9 5 3 1 5 7 9 3 6 8 1 1 2 5 8 9 9 7 1 1 3 1
## [1148] 3 5 9 5 2 5 1 9 2 9 1 9 5 3 2 8 9 8 8 3 9 3 7 5 7 1 3 9 7 3 2 9 7 5 2 2 5
## [1185] 5 9 3 3 6 9 9 5 1 3 2 8 6 3 5 1 5 7 9 9 2 5 1 1 9 5 9 1 5 9 7 9 1 1 9 1 9
## [1222] 1 7 5 3 9 1 1 3 1 5 6 2 1 6 2 2 5 2 7 7 8 3 3 5 5 3 5 9 9 1 1 1 3 3 5 5 7
## [1259] 9 1 5 1 4 5 3 2 1 3 1 9 5 9 2 1 1 5 1 1 3 5 7 5 1 9 3 2 9 2 5 9 8 5 1 1 3
## [1296] 1 9 5 1 3 1 9 1 5 4 3 5 7 8 9 9 1 3 1 3 5 3 5 5 1 9 1 9 2 7 3 2 1 2 1 3 9
## [1333] 3 3 5 5 6 1 9 5 5 3 7 2 5 1 3 9 1 8 5 4 4 5 3 2 3 9 8 5 7 1 1 1 7 5 6 1 1
## [1370] 7 1 2 5 3 5 7 3 9 5 5 6 8 8 7 5 3 1 6 1 9 9 5 1 2 2 8 6 1 7 2 1 3 1 6 9 5
## [1407] 5 1 3 5 5 1 8 2 5 5 1 6 2 8 1 5 3 1 5 2 2 5 5 7 7 7 1 5 1 9 6 1 9 5 3 1 1
## [1444] 1 3 9 3 1 1 9 5 5 8 4 8 1 5 3 5 1 7 5 1 2 5 5 1 2 3 7 1 3 6 5 5 5 1 9 2 9
## [1481] 2 5 9 5 5 2 5 9 5 7 9 3 1 9 4 1 5 5 5 5 5 3 7 3 3 9 5 1 1 3 1 5 1 7 1 2 1
## [1518] 2 1 5 4 1 4 3 2 3 5 8 1 9 1 1 7 7 1 5 9 1 9 1 5 1 9 5 5 5 4 6 3 3 8 1 3 3
## [1555] 1 5 8 3 5 1 5 4 5 8 8 5 8 6 3 3 8 9 9 7 5 9 5 9 5 1 5 9 9 1 7 5 5 1 9 9 5
## [1592] 5 1 1 9 9 1 1 1 1 1 3 9 3 5 2 7 1 9 9 9 9 5 1 1 1 9 8 1 2 6 1 8 5 9 7 3 3
## [1629] 8 5 1 1 1 1 2 5 3 9 5 1 1 7 9 6 7 1 8 2 3 9 5 1 8 5 1 9 9 9 1 2 9 5 1 5 1
## [1666] 3 3 3 1 3 9 5 9 2 1 1 6 9 5 9 5 5 1 5 1 9 2 1 5 7 1 3 5 5 9 9 8 1 9 9 2 3
## [1703] 5 1 5 1 8 9 1 6 5 1 9 1 9 9 1 3 8 9 1 8 8 2 6 3 6 5 1 9 5 1 5 1 5 3 6 2 5
## [1740] 1 5 1 5 1 1 1 3 1 5 3 1 3 1 3 1 9 3 3 1 3 5 1 3 5 2 1 3 1 1 1 3 3 6 2 3 3
## [1777] 2 5 3 9 7 9 1 3 7 2 1 5 9 5 9 9 1 9 1 2 5 7 8 9 2 5 7 5 9 9 3 9 3 9 9 3 5
## [1814] 1 9 9 1 7 2 9 3 9 1 1 5 3 5 2 7 9 9 5 2 3 1 4 3 9 6 9 8 5 8 1 8 5 1 5 9 8
## [1851] 9 8 2 3 7 3 9 9 3 9 9 1 2 1 3 5 3 5 3 1 7 9 9 3 2 5 4 5 5 5 5 3 7 1 2 3 1
## [1888] 3 9 1 3 5 1 9 3 1 3 3 9 7 2 2 3 3 5 9 8 3 5 4 4 1 4 1 9 9 3 3 7 1 9 3 5 5
## [1925] 7 9 1 5 1 5 2 9 9 9 7 1 5 2 9 9 7 8 5 9 2 9 5 9 9 2 3 8 8 1 8 5 1 9 8 9 5
## [1962] 9 9 5 1 1 1 1 3 7 3 3 9 1 4 1 1 9 8 1 1 5 5 9 1 5 1 5 7 5 6 1 5 3 3 2 1 1
## [1999] 3 1 7 5 1 3 4 3 2 5 2 3 2 7 2 1 2 9 5 5 3 1 5 7 5 1 2 9 9 2 7 5 9 3 2 1 3
## [2036] 5 2 5 3 3 1 1 9 3 3 5 5 2 9 4 1 9 1 9 8 6 5 3 2 3 5 3 5 4 9 5 1 3 2 5 3 2
## [2073] 1 1 9 7 3 1 9 1 5 9 8 5 5 9 2 1 5 9 5 1 5 7 5 3 7 3 6 1 2 7 1 6 3 5 7 8 1
## [2110] 5 7 9 3 5 7 5 5 1 3 9 1 5 8 5 5 5 5 5 5 3 8 5 2 5 8 5 3 3 3 6 8 7 7 4 5 5
## [2147] 1 1 3 3 2 7 5 5 5 4 5 5 5 7 2 5 6 9 6 1 7 3 9 7 9 5 5 8 9 9 6 3 1 1 5 1 3
## [2184] 1 4 7 1 5 7 7 5 5 1 7 5 5 7 5 3 5 9 1 7 2 5 9 3 9 4 2 2 9 7 4 2 7 3 9 5 5
## [2221] 9 2 5 1 2 9 1 1 9 5 5 2 1 7 8 9 5 1 4 1 5 1 8 6 5 1 2 9 5 5 5 3 9 6 5 5 5
## [2258] 3 3 2 5 5 3 1 5 8 3 5 3 2 8 7 9 7 5 9 5 1 1 9 3 9 7 3 9 1 5 5 7 5 1 1 5 5
## [2295] 5 3 9 3 1 5 2 5 9 5 5 9 8 1 7 3 9 9 3 2 3 7 3 2 1 5 1 6 5 3 8 3 1 1 9 1 3
## [2332] 1 5 9 8 1 2 2 5 1 5 1 1 9 5 8 3 1 3 9 9 1 9 1 5 1 1 1 1 3 2 5 3 9 5 5 1 7
## [2369] 1 8 3 9 5 7 5 1 9 9 3 5 1 9 9 3 2 1 3 1 3 8 3 5 5 7 8 3 1 5 9 5 5 9 9 1 2
## [2406] 9 9 3 1 3 9 9 3 4 5 3 5 9 3 9 1 3 9 1 3 1 2 2 2 7 1 3 1 9 7 9 5 2 1 8 5 8
## [2443] 3 5 5 2 9 7 2 3 5 3 9 2 9 3 5 5 9 8 9 5 3 5 6 8 8 7 1 3 9 1 3 3 5 1 5 9 5
## [2480] 9 6 5 1 9 2 1 5 8 5 7 1 1 5 3 2 3 8 5 1 3 3 6 5 5 3 1 9 5 7 5 5 2 3 1 9 9
## [2517] 3 9 3 5 3 9 4 1 1 5 9 1 8 7 9 5 7 3 8 9 2 1 9 9 5 5 2 5 9 6 9 6 1 1 5 9 3
## [2554] 3 5 1 4 8 8 3 5 9 1 1 3 3 8 3 8 1 4 2 6 4 1 5 3 3 5 5 4 8 2 9 7 2 8 3 9 7
## [2591] 1 3 7 7 5 9 1 9 3 5 9 1 2 1 9 1 1 1 1 9 6 3 2 1 5 3 3 8 3 8 5 5 3 2 9 9 2
## [2628] 2 5 5 5 3 5 3 3 6 9 1 1 5 1 5 1 5 5 3 5 5 5 5 5 7 1 3 5 9 2 4 5 5 5 5 4 3
## [2665] 3 1 3 3 1 1 9 9 9 1 3 3 5 6 5 1 7 2 3 7 4 1 1 1 2 9 1 9 3 9 1 7 8 1 6 1 3
## [2702] 5 1 9 3 2 1 3 1 1 1 1 9 9 1 3 2 3 3 9 9 7 1 5 2 1 5 7 2 3 7 6 3 3 2 9 1 5
## [2739] 7 3 2 5 3 1 8 5 3 5 2 3 3 9 5 5 1 5 3 9 8 2 5 1 7 5 2 5 3 5 5 4 3 3 6 3 7
## [2776] 5 9 6 7 5 1 5 5 5 1 5 5 9 7 8 7 9 5 5 1 3 6 4 1 9 5 7 5 9 7 7 5 1 5 1 2 2
## [2813] 5 9 1 4 6 1 3 5 7 1 5 5 3 1 6 1 9 2 3 2 2 9 5 9 8 9 4 9 7 3 1 1 3 9 9 1 5
## [2850] 9 1 1 5 7 3 3 7 9 3 4 1 7 3 9 2 9 2 5 6 3 8 8 1 5 5 7 5 3 7 3 7 7 1 1 1 3
## [2887] 2 3 5 9 4 5 5 1 1 2 5 1 3 1 5 1 7 7 2 1 2 2 5 2 9 1 4 5 1 1 5 5 1 3 5 9 5
## [2924] 1 2 2 6 7 9 9 5 8 2 9 5 2 9 3 5 8 9 1 1 9 1 6 9 5 5 8 6 9 3 5 9 3 1 5 3 5
## [2961] 9 1 7 5 3 1 3 1 1 3 9 3 3 9 1 3 1 8 3 8 1 2 5 1 4 8 7 7 3 5 7 5 1 3 8 4 3
## [2998] 2 1 2 5 7 5 9 1 1 9 9 9 9 9 3 3 2 1 9 5 5 1 5 9 5 9 2 9 9 1 1 1 7 3 3 9 9
## [3035] 5 5 2 5 9 9 8 8 5 1 1 5 9 3 1 1 9 1 8 5 5 1 7 8 9 3 7 9 5 5 7 9 3 7 2 3 3
## [3072] 1 5 5 9 2 3 9 9 5 5 1 3 8 9 5 7 9 8 1 1 5 9 9 5 3 6 1 3 2 3 9 5 5 1 8 2 5
## [3109] 4 3 9 8 9 1 3 3 7 5 3 2 9 1 1 2 7 7 5 5 5 5 7 5 5 7 9 1 9 7 7 9 9 5 3 9 9
## [3146] 7 1 1 5 5 3 7 5 3 5 1 5 9 7 5 7 5 1 7 1 7 1 5 3 1 3 5 3 5 2 5 9 7 8 3 2 1
## [3183] 6 1 5 5 3 5 9 7 3 1 1 6 1 7 3 1 5 9 4 3 1 7 1 3 9 9 2 7 2 5 4 1 1 1 3 3 4
## [3220] 1 6 1 1 2 7 5 1 2 1 9 5 1 7 8 1 5 1 1 7 9 7 8 9 5 5 9 1 1 8 1 3 3 3 6 5 9
## [3257] 4 8 5 5 7 3 5 3 5 1 5 2 1 3 5 8 1 9 7 1 7 7 9 1 2 5 1 9 8 9 3 1 5 9 1 2 7
## [3294] 1 8 7 3 2 8 2 5 1 5 3 5 1 1 2 3 1 2 5 3 3 7 5 5 9 5 3 5 5 9 1 5 1 1 7 1 9
## [3331] 9 9 5 5 3 9 9 9 5 2 9 9 5 1 1 7 1 8 1 9 1 9 7 5 9 3 9 8 1 3 5 7 5 3 1 3 4
## [3368] 3 1 1 7 1 7 1 1 5 9 3 3 5 1 8 7 1 3 5 5 8 3 3 1 7 3 7 9 1 8 1 2 1 5 2 3 7
## [3405] 2 5 9 6 5 9 5 9 3 5 5 5 6 5 3 3 9 5 7 6 2 7 1 8 1 6 1 9 3 5 3 5 3 2 5 9 1
## [3442] 7 3 3 3 9 9 3 1 1 9 1 9 9 9 5 8 2 9 3 7 3 5 7 9 5 3 3 1 3 2 5 7 2 1 8 5 3
## [3479] 5 3 7 1 5 8 2 3 7 5 1 1 2 1 1 3 3 9 9 9 9 6 2 1 8 1 1 6 1 1 5 3 3 1 3 6 5
## [3516] 2 1 1 5 9 1 3 5 5 3 5 5 5 5 9 8 5 1 6 2 3 5 1 5 5 3 2 6 9 2 9 7 9 9 3 3 1
## [3553] 1 9 1 5 9 3 5 9 6 5 3 5 2 8 9 6 9 5 6 2 9 1 6 5 3 3 7 1 2 9 9 1 5 1 8 5 1
## [3590] 9 1 3 7 2 5 3 1 2 4 1 3 9 5 9 1 3 1 5 2 1 7 5 3 2 3 5 2 9 3 3 5 8 7 5 8 3
## [3627] 2 2 1 9 2 5 9 8 8 9 1 1 1 3 5 1 3 9 2 3 9 3 5 6 5 5 7 5 6 1 1 6 2 1 1 3 5
## [3664] 3 9 5 7 5 8 1 5 1 8 5 9 3 1 9 1 5 3 9 4 9 5 3 2 9 3 9 5 1 1 5 1 7 3 1 3 5
## [3701] 2 9 1 3 1 9 3 9 3 6 3 7 1 5 2 5 6 3 2 8 6 9 1 3 8 5 2 3 3 3 9 9 1 9 1 9 1
## [3738] 3 3 1 9 1 2 9 2 3 7 1 9 5 5 1 5 8 5 9 5 1 1 1 9 2 5 5 4 3 1 7 1 7 1 5 3 9
## [3775] 6 3 8 9 7 3 7 5 7 6 1 5 3 5 9 5 9 5 3 3 8 2 9 2 5 8 9 1 1 9 5 3 1 5 6 7 3
## [3812] 3 3 5 5 3 7 1 1 5 9 5 5 3 9 3 5 3 5 5 9 5 2 3 2 6 3 5 3 2 9 3 3 1 1 5 1 9
## [3849] 9 5 1 5 3 5 1 5 3 8 2 8 1 8 1 7 3 1 4 9 5 1 9 2 9 1 1 8 1 7 5 5 3 5 9 3 9
## [3886] 3 1 9 1 5 3 3 1 9 9 5 9 2 5 1 2 9 4 2 9 1 1 3 5 6 4 3 1 2 6 3 3 8 9 6 5 3
## [3923] 1 1 7 1 3 1 5 4 9 1 9 1 1 1 5 2 5 5 2 1 5 5 1 5 6 3 2 1 1 5 5 5 3 9 5 5 1
## [3960] 5 1 3 8 4 7 1 3 1 1 7 5 3 7 1 3 9 1 6 5 1 5 5 2 1 5 6 1 1 3 9 3 5 3 2 9 1
## [3997] 1 2 7 3 8 5 1 3 5 7 9 7 8 7 5 1 9 3 2 3 1 1 1 8 9 3 6 1 1 1 9 3 4 5 9 1 3
## [4034] 2 3 9 9 3 9 1 1 3 1 5 5 4 7 5 8 9 5 5 3 6 1 5 5 1 5 8 3 1 5 3 2 1 5 4 2 5
## [4071] 9 5 5 5 1 1 3 1 5 3 5 2 5 9 5 8 9 9 8 9 5 5 9 9 7 5 5 3 5 7 3 3 7 1 8 5 6
## [4108] 5 2 9 3 6 2 3 7 5 3 6 5 6 5 9 5 9 5 6 7 3 1 5 5 9 5 5 1 5 3 1 3 5 5 5 5 5
## [4145] 9 1 1 2 9 5 1 2 5 9 9 5 9 5 5 2 5 8 3 3 5 3 9 4 5 5 5 5 9 3 1 9 5 9 1 5 5
## [4182] 9 5 9 3 3 3 5 9 1 9 3 1 9 5 5 7 1 5 9 3 6 2 2 1 9 9 5 1 5 5 4 5 1 1 5 1 9
## [4219] 9 3 9 2 5 4 9 6 4 4 5 1 1 5 9 1 3 9 5 5 1 9 3 5 5 8 3 1 5 5 2 1 9 1 7 3 5
## [4256] 3 2 3 7 5 1 5 2 2 6 1 5 9 9 9 2 3 7 1 3 5 7 6 9 5 3 8 9 3 7 1 4 9 5 3 8 6
## [4293] 1 3 2 9 5 6 7 5 5 7 5 7 8 1 5 2 5 8 9 9 1 9 5 5 9 9 9 5 1 5 3 2 1 5 1 1 5
## [4330] 3 1 6 8 7 5 8 3 3 2 9 1 4 1 9 2 9 5 4 3 9 5 1 6 8 9 5 3 7 5 5 9 1 9 9 9 9
## [4367] 9 5 5 9 1 6
## 
## $centers
##   rec_bins freq_bins mon_bins
## 1 1.370748  4.968254 4.532880
## 2 4.488571  2.482857 2.602857
## 3 1.488406  2.873913 2.626087
## 4 3.735294  2.343137 4.627451
## 5 4.877998  1.418144 1.352450
## 6 1.467105  2.651316 4.677632
## 7 3.000000  2.416918 2.459215
## 8 3.612903  4.894009 4.041475
## 9 2.120464  1.407837 1.391872
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 802.4229 350.6486 753.9681 158.6863 618.9218 127.5592 236.6647 404.6728
## [9] 693.5936
## 
## $tot.withinss
## [1] 4147.138
## 
## $betweenss
## [1] 24603.24

Within cluster sum of squares by cluster:

[1] 340.9895 117.6919 386.8711 687.8474 926.0398 238.7811 989.9324 343.0778 109.8140

(between_SS / total_SS = 85.6 %)

k_mod10=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=10)

df_mod10=cbind(rfm_bin[,c("custid","rec_bins","freq_bins","mon_bins")],"cluster"=k_mod10$cluster)
df_mod10$cluster=as.factor(df_mod10$cluster)

head(df_mod10)

##   custid rec_bins freq_bins mon_bins cluster
## 1  12346        5         1        1       4
## 2  12347        1         5        5       7
## 3  12348        3         2        4       1
## 4  12349        2         3        4       8
## 5  12350        5         1        2       4
## 6  12352        2         4        3       5

head(k_mod10)

## $cluster
##    [1]  4  7  1  8  4  5  4  1  4  8  7  8  7  9  4  7  4  8  4  3  9  8  1  4
##   [25]  8  3  1  9  1  7  8  2  3  4  7  3  5  1  1  7  7  8  1  4  4  3  1  7
##   [49]  8  7  9  1  1  1  4  7  7  1  3  8  1  7  1  1  4  8  7  7  3  7  7  7
##   [73]  1  1  4  7  7  4  3  7  3  1  4  3  7  4  7  3  1  3  1  7  1  1  1  8
##   [97]  8  8  8  1  7  7  7  7  1  7  7  8  3  7  7  8  7  8  4  7  3  3  4  8
##  [121]  1  3  8  2  9  4  3  4  4  1  3  4  1  3  3  1  4  1  7  7  3  9  4  3
##  [145]  7  7  8  3  7  1  3  3  1  1  7  3  7  7  8  3  1  8  4  4  1  4  3  7
##  [169]  5  8  3  4  7  4  7  4  4  3  7  7  3  8  4  4  8  5  7  3  4  3  4  7
##  [193]  7  2  3  3  3  3  1  4  4  4  7  3  7  7  8  8  4  3  3  3  4 10  1  7
##  [217]  1  3  7  4  7  1  3  3  7  8  7  4  4  4  1  7  7  8  8  3  9  6  9  8
##  [241]  4  8  4  8  1  4  8  8  7  4  4  3  4  1  1  3  7  8  8  3  3  7  8  4
##  [265]  4  3  7  2  7  4  3  8  8  7  1  8  7  7  7  7  7  4  9  8  4  8  1  1
##  [289]  3  8  7  1  3  3  8  7  4  7  7  1  7  8  7  4  8  1  3  3  7  7  1  8
##  [313]  8  4  7  7  1  4  7  4  4  4  1  4  4  1  3 10  9  7  7  7  4  1  7  1
##  [337]  1  3  7  9 10  8  4  1  7  1  4  1  8  8  7  8  7  8  8  3  3  3  4  4
##  [361]  4  4  1  3  4  8  4  3  4  4  3  4  1  4  4  4  8  4  1  1  3  5  3  8
##  [385]  4  8  4  3  4  4  9  4  5  7  9  7  1  6  3  4  8  8  4  4  1 10  4  7
##  [409]  1  3  4  5  4  7  2  4  3  4  4  4  1  5  8  3  4  8  8  3  1  1  4  3
##  [433]  4  3  3  4  7  4  3  8  3  7  8  8  8  4  9  4  8  3  7  4  3  1  8  8
##  [457]  4  3  7  5  7  8  5  3  1  5  1  4  3  4 10  7  7  8  8  8  3  7  4  7
##  [481]  3  7 10  3  8  4  5  7  4  1  4  1  3  4  3  8  3  4  8  3  3  3  8  3
##  [505]  8  4  4  7  4  4  7  4  3  4  4  5  7  7  9  1  3  7  7  1  8  1  8  3
##  [529]  5  8  4  3  1  1  1  8  4  4  4  3  7  7  1  7  4  1  3  4  4  3  4  8
##  [553]  4  3  3  3  7  4  4  1  5  7  3  4  7  1  3  4  7  7  3  3  2  8  3  7
##  [577]  7  4  4  7  3  8  4  8  4  8  5  7  7  4  8  8  4  4  1  9  7  3  4  8
##  [601]  4  4  6  1  7  7  8  7  1  9  3  4  3  3  8  7  8  1  3  4  8  8  1  5
##  [625]  3  4  1  8  4  8  5  1  3  8  8  7  3  3  7  3  7  7  4  8  4  3  3  1
##  [649]  3  4  7  7  7  8  8  3 10  7  4  8  5  1  4  4  4  1  1  4  9  8  4  4
##  [673]  3  4  7  5  3  4  8  8  4  1  4  4  4  3  7  3  4  1  1  3  3  8  3  3
##  [697]  4  4  7  1  7  7  7  7  4  5  3  4  3  3  3  3  1  8  3  4  7  4  3  1
##  [721]  4  4  8  3  4  4  1  4  4  8  4  8  5  8  3  8  8  8  9  3  7 10  3  3
##  [745]  8  8  1  7  4  8  1  3  9  1  4  1  7  1  4  9  4  3  3  3  8  3  3  1
##  [769]  1  1  4  4  3  7  8  3  7  3  4  4  1  3  9  1  1  5  7  4  7  4  4  8
##  [793]  3  4  7  4  8  1  4  4  3  3  3  7  8  4  1  8  3  7  3  4  6  9  1  7
##  [817]  3  3  8  8  1  3  7  3  7  4  3  8  7  3  8  7  4  4  8  8  7  3  8  4
##  [841]  1  4  5  7  4  7  3  4  1  1  8  4  6  4  3  4  4  1  3  7  4  1  1  4
##  [865]  4  8  3  4  8  8  1  3  3  3  9  4  7  4  8  7  4  4  3  1  8  9  1  3
##  [889]  9  5  3  7  8  3  7  3  4  3  4  7  7  8  3  3  5 10  8  4  9  9  3  5
##  [913]  3  4  1  1  4  3  5  4  3  4  7  1  3  8  7  8  3  4  1  4  3  7  3  8
##  [937]  1  3  9  3  5  3  7  4  5  3  3  3  5  5  1  5  4  3  4  4  8  4  6  8
##  [961]  8  1  7  5  1  8 10  3  1  4  3  7  4  8  4  7  3  8  7  1  4  3  7  2
##  [985]  1  4  3  4  7  3  3  4  3  4  4  7  8  4  4  8  4  1  3  8  4  7  8  3
## [1009]  4  7  4  7  8  4  1  4  7  3  4  4  2  4  5  4  8  1  3  1  4  6  8  3
## [1033]  8  1  4  3  7  5  4  3  4  1  7  8  1  4  4  1  1  4  1  1  4  7  7  7
## [1057]  8  3  8  4  1 10  7  7  9  5  3  7  4  8  4  5  8  4  3  8  3  3  7  1
## [1081]  4  3  1  4  7  1  3  4  8  4  8  4  3  8  1  7  3  3  1  4  5  8  8  4
## [1105]  3  3  4  8  3  4  8  4  5  4  9  3  3  8  1 10 10  1  8  7  4  3  4  8
## [1129]  7  4  3  3  8  8  9  7  7  4  4  6  3  3  1  7  7  8  7  8  4  3  4  4
## [1153]  4  7  3  1  3  7  3  4  3  1  9  3  9  9  3  3  8  3  4  3  7  3  3  3
## [1177]  3  4  3  1  4  4  1  4  4  3  3  8  8  3  3  4  7  8  1  2  8  3  4  5
## [1201]  4  3  3  3  1  4  7  7  3  4  3  7  4  3  1  3  6  7  3  7  3  7  1  4
## [1225]  8  3  7  7  8  7  4  8  1  7  8  1  1  4  4  3  1  2  8  3  4  4  3  4
## [1249]  3  3  7  7  7  3  8  4  4  1  3  7  4  5  1  4  8  4  7  8  7  3  4  3
## [1273]  1  7  7  4  7  7  8  4  3  4  5  3  8  4  3  1  4  3  2  4  5  7  3  7
## [1297]  3  4  7  5  7  3  7  4  1  8  4  1  9  3  3  7  8  7  8  4  8  4  4  7
## [1321]  3  7  3  1  3  8  4  7  4  7  8  3  8  8  4  4  8  7  3  4  4  8  3  1
## [1345]  4  7  3  3  7  2  4  1  1  4  3  1  3  3  9  4  3  7  5  7  3  4  8  7
## [1369]  7  1  7  4  4  8  4  1  3  3  4  4  8  9  9  1  4  8  7  8  7  3  3  4
## [1393]  7  1  1 10  8  7  1  1  7  8  5  8  3  4  4  7  8  4  4  7  2  1  4  4
## [1417]  7  8  1  9  7  4  8  7  4  4  1  4  4  3  3  1  7  4  7  3  8  7  3  4
## [1441]  8  7  7  7  8  3  8  7  7  3  4  4  6  1  9  7  4  8  4  7  3  4  5  4
## [1465]  4  4  7  4  8  3  7  8  8  4  4  4  7  3  1  3  1  4  3  4  4  1  4  3
## [1489]  4  1  3  8  7  3  1  7  4  4  4  4  4  3  3  5  8  3  4  6  7  8  7  4
## [1513]  7  3  7  4  7  1  5  4  1  7  1  5  4  8  4 10  7  3  7  5  3  1  7  4
## [1537]  3  7  3  5  4  7  3  4  4  4  1  8  8  8 10  5  8  3  5  4 10  3  4  7
## [1561]  4  1  4  2  9  4  2  8  3  8  9  3  3  1  4  3  4  3  4  7  4  3  3  5
## [1585]  1  4  4  7  3  3  4  4  7  5  3  3  7  7  5  7  7  5  3  8  4  4  1  7
## [1609]  3  3  3  3  4  6  7  7  3 10  7  1  8  7  9  4  3  3  3  8 10  4  7  7
## [1633]  7  7  4  4  8  3  4  5  7  3  3  8  1  7  9  1  8  3  4  7  2  4  5  3
## [1657]  3  3  5  2  3  4  5  4  5  5  5  8  6  8  3  4  3  4  7  7  8  3  4  3
## [1681]  4  4  7  4  5  3  1  7  4  1  5  8  4  4  3  3  9  7  3  3  1  8  4  7
## [1705]  4  5 10  3  7  8  4  5  3  7  3  3  5  5 10  3  7  2 10  1  8  5  8  4
## [1729]  7  3  4  5  4  7  4  3  8  1  4  7  4  5  4  7  7  7  3  5  4  8  7  5
## [1753]  7  8  7  3  8  3  5  8  4  5  8  4  4  7  3  7  7  7  8  8  8  1  8  8
## [1777]  1  4  8  3  3  3  7  8  3  1  7  4  3  4  3  3  7  3  7  1  4  1  9  3
## [1801]  1  4  3  4  3  3  8  3  8  3  3  8  4  7  3  3  7  3  1  3  8  3  7  7
## [1825]  4  8  4  1  1  3  3  4  4  8  7  1  3  3  8  3  6  4  9  7  9  4  7  4
## [1849]  3  9  3  9  4  8  1  8  3  3  8  3  3  7  1  7  8  4  5  4  8  5  1  3
## [1873]  3  8  1  4  1  4  4  4  4  8  1  7  4  8  5  5  3  7  8  4  7  3  3  7
## [1897]  8  8  3  1  1  1  8  8  4  3  9  8  4  1  1  7  1  7  3  3  8  3  3  7
## [1921]  3  8  4  4  1  3  7  4  5  4  1  3  3  3  1  5  4  1  3  3  1  9  4  3
## [1945]  4  3  4  3  3  4  3  2  2  7 10  4  5  3 10  3  4  3  3  4  7  5  7  7
## [1969]  3  3  8  8  3  5  1  7  7  3 10  5  7  4  4  3  7  4  7  4 10  4  8  5
## [1993]  4  8  5  1  7  5  5  7  1  4  7  8  1  5  1  4  1  8  1  1  1  7  1  3
## [2017]  4  4  8  7  4  3  4  7  1  3  3  4  3  4  3  8  1  7  5  4  1  4  8  8
## [2041]  7  7  3  8  8  4  4  4  3  1  7  3  7  3 10  8  4  8  1  8  4  8  4  1
## [2065]  3  4  7  8  2  4  3  4  7  7  3  3  8  7  3  7  4  3 10  4  4  3  4  7
## [2089]  4  3  4  7  4  1  4  3  3  3  8  7  1  3  7  8  8  4  1 10  6  4  1  3
## [2113]  8  4  1  4  4  7  3  3  7  4  6  4  4  4  4  4  4  8  9  4  4  4  2  4
## [2137]  5  8  8  8  6  3  3  1  4  4  7  7  8  8  4  1  4  4  4  1  4  4  4  3
## [2161]  1  4  8  3  8  7  1  8  3  3  3  4  4  9  3  3  8  8  7  7  4  7  3  7
## [2185]  1  3  7  4  1  1  4  4  7  1  4  4  3  4  3  4  3  7  3  4  4  3  8  3
## [2209]  1  4 10  3  3  1  4  3  3  3  4  4  3  4  4  7  1  3  7  7  3  4  4  1
## [2233]  5  3  6  3  4  7  1  7  4  5  2  8  4  7  4  3  4  4  4  8  3  8  4  4
## [2257]  4  8  8  1  4  4  3  5  4  9  5  4  8  4  9  3  3  1  4  3  4  5  5  3
## [2281]  3  3  3  8  3  5  4  4  3  4  7  5  4  4  4  8  3  3  5  4  4  4  3  4
## [2305]  4  3  2  7  3  8  3  3  8  1  8  3  8  1  7  4  7  8  4  8  9  8  7  5
## [2329]  3  7  8  7  4  3  9  5  4  1  4  5  4  7  7  3  4  9  3  7  3  3  3  5
## [2353]  3  7  4  7  5  7  5  8  4  4  3  3  4  4  7  3  7  6  8  3  4  3  4  7
## [2377]  3  3  8  4  5  3  3  8  1  7  8  7  5  2  8  4  4  3  9  8  5  4  3  4
## [2401]  4  3  3  7  1  3  3  8  7  8  3  3  8  1  4  8  4  3  8  3  7  8  3  5
## [2425]  8  7  4  4  1  1  7  8  7  3  1  3  4  4  7  2  4  2  3  4  4  4  3  3
## [2449]  1  8  4  8  3  1  3  5  4  4  3  2  3  4  8  4  8  9  6  3  7  8  3  5
## [2473]  8  8  4  7  4  3  4  3  8  4  7  3  1  5  4  9  4  1  5  7  4  8  4  3
## [2497]  2  4  7  5  8  8  4  4  3  7  3  4  1  4  4  1  8  7  3  3  8  3  8  4
## [2521]  8  3  1  7  7  4  3  7 10  1  3  4  3  8  9  3  4  7  3  3  4  4  1  4
## [2545]  3  8  3  8  7  5  4  3  8  8  4  7  1 10 10  8  4  3  7  7  8  8  2  3
## [2569] 10  7  1  1  8  1  7  4  3  8  4  4  1  6  1  3  1  1  9  8  3  3  7  8
## [2593]  3  1  4  3  7  3  5  4  3  7  1  7  3  5  5  7  5  3  8  8  4  7  4  3
## [2617]  5  9  5 10  4  4  8  4  3  3  4  4  4  4  4  8  4  3  5  8  3  5  5  4
## [2641]  5  4  5  4  4  5  4  4  4  4  4  3  7  8  4  3  4  1  4  4  4  4  1  8
## [2665]  3  7  8  8  7  7  3  3  3  5  3  3  4  8  4  7  3 10  8  1  1  7  5  7
## [2689]  1  3  5  3  8  3  7  3 10  7  8  7  5  4  6  3  8  4  7  5  7  5  5  5
## [2713]  3  3  7  8  4  5  3  3  3  1  7  4 10  7  4  1  1  3  1  8  8  8  1  3
## [2737]  5  4  3  8  1  4  8  7 10  4  8  4  4  5  8  3  4  4  7  4  8  3  9  1
## [2761]  4  5  1  4  1  4  8  4  4  1  8  8  8  8  3  4  3  8  1  4  5  4  4  4
## [2785]  7  4  4  3  1 10  1  3  4  4  7  8  8  1  7  3  4  1  4  3  1  3  4  7
## [2809]  4  7  1  4  4  3  7  1  8  7  3  4  1  7  4  4  8  7  8  6  3  1  8  1
## [2833]  1  3  4  3  9  3  1  3  1  3  7  7  8  3  3  7  4  3  5  7  4  3  3  5
## [2857]  3  3  8  1  7  3  8  3  1  3  1  4  8  5  2 10  5  4  4  1  4  8  3  8
## [2881]  3  3  7  7  7  3  1  8  4  3  1  4  4  7  7  4  4  7  8  5  4  7  1  1
## [2905]  1  5  4  4  4  4  3  5  1  4  5  5  4  4  7  8  4  3  4  7  4  4  8  1
## [2929]  3  3  4  9  1  3  4  1  3  3  4 10  3  7  7  3  5  8  3  4  4 10  8  3
## [2953]  8  4  3  8  5  4  8  4  3  7  3  4  8  7  8  7  5  8  3  8  8  3  5  8
## [2977]  5 10  5 10  5  4  4  7  1 10  3  3  3  4  1  4  7  5 10  1  3  4  7  4
## [3001]  4  3  4  3  7  7  3  3  3  3  3  8  5  1  7  3  4  4  7  4  3  4  3  4
## [3025]  3  3  5  5  7  3  5  3  3  3  4  4  1  4  3  3  6  9  4  7  5  4  3  8
## [3049]  5  5  3  5 10  4  4  7  3  9  3  3  1  3  4  4  3  3  8  1  1  5  5  7
## [3073]  4  4  3  1  3  3  3  4  4  5  8  6  3  4  3  3  2  7  7  4  3  3  4  8
## [3097]  8  5  3  1  8  3  4  4  7  9  1  4  1  8  3  9  3  7  8  3  1  4  3  1
## [3121]  3  7  5  1  1  3  4  4  4  4  1  4  4  3  3  7  3  3  3  3  3  4  8  3
## [3145]  3  3  7  7  4  4  8  3  4  3  4  7  4  3  1  4  1  4  7  3  7  3  7  4
## [3169]  8  6  8  4  8  4  1  4  3  3  9  8  4  7  8  5  4  4  8  4  3  3  3  5
## [3193]  7  8  7 10  8  7  4  3  1  8  7  3  7  8  3  3  4  3  1  4  1  7  7  7
## [3217]  5  8  1  7  8  7  7  2  3  4  7  4  7  3  4  7  3  2  5  4  5  7  1  3
## [3241]  1  9  3  4  4  3  7  5  9  7  8  8  5  8  4  3  1 10  4  4  3  8  4  8
## [3265]  4  7  4  1  7  3  4 10  7  3  1  7  3  3  3  7  1  4  7  3 10  3  5  6
## [3289]  4  3  5  4  3  5  2  3  3 10 10  1  4  5  4  3  4  7  7  4  5  7  4  4
## [3313]  3  8  3  4  4  3  4  8  4  4  3  7  4  7  6  1  7  3  3  3  4  4  3  3
## [3337]  3  3  4  1  3  3  4  5  7  1  7  9  5  3  5  3  1  4  3  5  3  2  5  5
## [3361]  4  3  4  5  5  3  1  3  7  7  3  5  3  5  7  4  3  8  5  4  5  2  3  7
## [3385]  8  4  4  9  8  3  7  3  8  1  3  7  9  7  1  7  4  4  8  1  1  4  3  8
## [3409]  4  3  4  3  5  4  4  4  8  4  3  8  3  4  3  8  1  3  7  9  7  8  7  3
## [3433]  8  4  5  4  8  4  4  3  7  1  8  8  8  3  3  8  6  7  3  5  3  3  3  4
## [3457] 10  1  3  3  1  8  4  1  3  4  8  5  6  8  4  4  1  1  7  9  4  3  4  8
## [3481]  1  7  4  9  4  8  1  4  7  7  1  7  5  8  8  3  3  3  3  8  1  7 10  7
## [3505]  7  8  7  6  4  8  8  5  8  8  4  1  7  5  4  3  5  8  4  4  3  4  4  4
## [3529]  4  3  2  4  7  8  4  8  4  7  4  4  8  1  8  3  4  3  3  3  3  8  5  7
## [3553]  6  3  7  4  3  8  4  3  8  4  8  4  1 10  3  8  3  4  8  1  3  7  8  4
## [3577]  8  5  3  7  1  3  3  7  4  7 10  4  7  3  7  8  3  4  4  8  7  1  1  7
## [3601]  3  3  4  3  5  3  7  4  1  7  1  4  3  1  8  4  1  3  5  3  4 10  1  4
## [3625] 10  8  4  1  7  3  1  4  3  2  6  3  5  5  5  5  4  7  3  3  4  8  3  8
## [3649]  4  8  4  4  1  4  8  7  7  8  1  5  5  8  4  3  3  4  3  4  2  7  4  7
## [3673]  2  4  3  8  7  3  5  4  8  3  1  3  4  3  4  3  5  3  4  7  7  4  5  3
## [3697]  3  5  3  4  4  3  7  8  7  3  3  3  3  8  8  1  7  4  4  4  8  8  1  9
## [3721]  8  3  7  5  2  4  4  8  8  8  3  3  7  3  7  3  7  8  8  7  3  7  4  3
## [3745]  4  3  3  7  3  4  4  7  4  2  4  3  4  7  7  7  3  4  4  4  1  8  5  3
## [3769]  5  1  7  4  8  3  8  8  2  3  3  8  3  4  3  8  7  4  3  4  3  4  3  4
## [3793]  8  3  2  1  3  4  4  9  3  7  7  3  4  3  5  4  8  3  8  8  8  4  4  8
## [3817]  1  7  7  4  3  4  4  8  3  3  4  5  4  4  3  4  4  8  1  8  5  4  3  1
## [3841]  3  8  3  5  7  4  5  3  3  4  7  4  8  4  7  4  8 10  1  9  5  9  7  1
## [3865]  8  7  1  3  4  7  3  4  3  5  7  9  7 10  4  4  8  4  3  8  3  8  7  3
## [3889]  7  4  3  8  7  3  3  4  3  1  4  7  1  3  1  1  3  7  7  8  4  8  1  3
## [3913]  7  4  8  3  8  9  3  8  4  8  7  7  3  7  8  7  4  1  3  7  3  7  7  7
## [3937]  4  1  4  4  1  7  4  4  7  4  8  8  1  7  7  4  4  4  3  3  4  4  7  4
## [3961]  7  8  9  1  1  7  8  7  7  1  4  8  1  7  3  3  6  8  4  7  4  4  1  7
## [3985]  4  8  7  7  5  3  8  4  8  4  3  7  7  1  3  3 10  4  5  3  4  3  3  3
## [4009]  2  1  4  7  3  3  4  8  5  7  5 10  3  8  8  7  5  7  3  3  1  4  3  7
## [4033]  8  1  3  3  3  8  3  5  7  3  7  4  4  1  1  4  2  3  4  4  8  8  7  4
## [4057]  4  7  4  9  5  7  4  3  4  7  4  1  1  4  3  4  4  4  5  5  3  5  4  3
## [4081]  4 10  4  3  4 10  3  3 10  3  4  4  3  3  1  4  4  3  4  3  8  5  1  7
## [4105] 10  4  8  4  4  3  8  8  1  8  1  4  8  8  4  8  4  3  4  3  4  8  3  8
## [4129]  7  4  4  3  4  4  5  4  5  7  8  4  4  4  4  4  3  5  7  4  3  4  5  1
## [4153]  4  3  3  4  3  4  4  1  4 10  3  8  4  3  3  1  4  4  4  4  3  3  5  3
## [4177]  4  3  5  4  4  3  4  3  5  8  5  4  3  7  3  5  7  3  4  4  3  7  4  3
## [4201]  3  8  1  1  7  3  3  4  7  4  4  1  4  7  7  4  7  3  3  8  3  1  4  1
## [4225]  3  8  1  1  4  5  7  4  3  7  8  3  4  4  7  3  3  4  4 10  3  7  4  4
## [4249]  1  7  3  5  3  3  4  8  4  8  1  4  7  4  1  1  8  7  4  3  3  3  1  3
## [4273]  3  5  3  4  3  8  3  4  8  2  3  8  1  7  1  3  4  8 10  8  7  3  4  3
## [4297]  4  8  1  4  4  1  4  1 10  7  4  1  4  9  3  3  7  3  4  4  3  3  3  4
## [4321]  7  4  8  4  7  4  7  7  4  8  7  8  2  3  4  6  8  8  1  3  7  1  7  3
## [4345]  1  3  4  1  5  3  4  7  8  2  3  4  8  1  4  4  3  7  3  3  3  3  3  4
## [4369]  4  3  7  8
## 
## $centers
##    rec_bins freq_bins mon_bins
## 1  3.787500  2.493750 3.308333
## 2  4.940000  4.860000 3.840000
## 3  2.150849  1.715285 1.552448
## 4  4.835014  1.517874 1.445463
## 5  1.550781  4.808594 2.789062
## 6  2.485714  4.771429 4.000000
## 7  1.312046  4.965167 4.936139
## 8  1.489292  2.710049 3.359143
## 9  3.219780  4.956044 5.000000
## 10 3.458333  4.722222 2.652778
## 
## $totss
## [1] 28750.38
## 
## $withinss
##  [1]  796.67292   51.56000 1295.57443  904.20898  151.57031   14.91429
##  [7]  212.26415  740.35585   19.42857   66.63889
## 
## $tot.withinss
## [1] 4253.188
## 
## $betweenss
## [1] 24497.19

#customer segmentation by clustering into 10 clusters #recency high(new customers) ,frequency low ,monetory all types

df_cluster1=df_mod10[df_mod10$cluster==1,] #(x4-5x) high recency

head(df_cluster1,20)  

##    custid rec_bins freq_bins mon_bins cluster
## 3   12348        3         2        4       1
## 8   12354        5         3        3       1
## 23  12372        3         3        3       1
## 27  12377        5         3        4       1
## 29  12379        3         2        3       1
## 38  12393        3         3        3       1
## 39  12394        3         2        3       1
## 43  12399        4         3        3       1
## 47  12405        5         3        4       1
## 52  12410        5         2        3       1
## 53  12412        3         3        3       1
## 54  12413        3         2        3       1
## 58  12418        4         2        3       1
## 61  12422        4         2        3       1
## 63  12424        5         2        4       1
## 64  12425        3         2        3       1
## 73  12434        3         3        3       1
## 74  12435        3         2        5       1
## 82  12446        3         3        3       1
## 89  12453        4         3        3       1

str(df_cluster1)

## 'data.frame':    480 obs. of  5 variables:
##  $ custid   : num  12348 12354 12372 12377 12379 ...
##  $ rec_bins : num  3 5 3 5 3 3 3 4 5 5 ...
##  $ freq_bins: num  2 3 3 3 2 3 2 3 3 2 ...
##  $ mon_bins : num  4 3 3 4 3 3 3 3 4 3 ...
##  $ cluster  : Factor w/ 10 levels "1","2","3","4",..: 1 1 1 1 1 1 1 1 1 1 ...

library(plyr)
# count(df_cluster1$rec_bins)
# count(df_cluster1$freq_bins)
# count(df_cluster1$mon_bins)
nrow(df_cluster1)

## [1] 480

#cluster 2 frequency high,recency high, monetory moderate to high,best customers

df_cluster2=df_mod10[df_mod10$cluster==2,] 
tail(df_cluster2,20) 

##      custid rec_bins freq_bins mon_bins cluster
## 2871  16222        5         5        3       2
## 3089  16520        5         5        3       2
## 3224  16714        5         4        3       2
## 3234  16725        5         5        3       2
## 3295  16801        5         5        3       2
## 3358  16889        5         5        3       2
## 3382  16919        5         5        5       2
## 3531  17126        5         5        3       2
## 3634  17282        4         4        4       2
## 3669  17337        5         5        5       2
## 3673  17341        5         5        3       2
## 3725  17406        5         5        5       2
## 3754  17444        5         5        5       2
## 3777  17472        5         5        3       2
## 3795  17504        5         5        5       2
## 4009  17787        5         5        4       2
## 4049  17850        5         5        5       2
## 4282  18168        5         5        3       2
## 4333  18231        5         5        5       2
## 4354  18260        5         5        5       2

nrow(df_cluster2)  

## [1] 50

# count(df_cluster2$rec_bins)
# count(df_cluster2$freq_bins)
# count(df_cluster2$mon_bins)

#cluster 3 average customers , low to average recency, frequency and spending capability

df_cluster3=df_mod10[df_mod10$cluster==3,]
nrow(df_cluster3)   

## [1] 1001

# count(df_cluster3$rec_bins)
# count(df_cluster3$freq_bins)
# count(df_cluster3$mon_bins)

View(df_cluster3) 

#cluster 4 recent buying customers,new

df_cluster4=df_mod10[df_mod10$cluster==4,]
nrow(df_cluster4)

## [1] 1091

head(df_cluster4,15) 

##    custid rec_bins freq_bins mon_bins cluster
## 1   12346        5         1        1       4
## 5   12350        5         1        2       4
## 7   12353        5         1        1       4
## 9   12355        5         1        2       4
## 15  12361        5         1        1       4
## 17  12363        4         2        2       4
## 19  12365        5         2        2       4
## 24  12373        5         1        2       4
## 34  12386        5         1        2       4
## 44  12401        5         1        1       4
## 45  12402        5         1        1       4
## 55  12414        5         2        2       4
## 65  12426        5         2        2       4
## 75  12436        4         1        2       4
## 78  12441        5         1        1       4

# count(df_cluster4$rec_bins)
# count(df_cluster4$freq_bins)
# count(df_cluster4$mon_bins)

#cluster 5 frequently buying customers loyal

df_cluster5=df_mod10[df_mod10$cluster==5,]
nrow(df_cluster5)

## [1] 256

# count(df_cluster5$rec_bins)
# count(df_cluster5$freq_bins)
# count(df_cluster5$mon_bins)


tail(df_cluster5,15) 

##      custid rec_bins freq_bins mon_bins cluster
## 4078  17886        2         5        3       5
## 4102  17917        2         4        2       5
## 4135  17961        2         5        3       5
## 4137  17964        2         5        2       5
## 4146  17974        2         5        3       5
## 4151  17979        2         5        3       5
## 4175  18016        2         5        3       5
## 4179  18022        2         5        3       5
## 4185  18034        2         5        2       5
## 4187  18036        2         4        2       5
## 4192  18043        2         5        2       5
## 4230  18096        1         5        3       5
## 4252  18125        2         5        3       5
## 4274  18156        1         5        3       5
## 4349  18252        2         4        2       5

#cluster 6 high paying customers having high frequency of buying

df_cluster6=df_mod10[df_mod10$cluster==6,]



tail(df_cluster6,15) 

##      custid rec_bins freq_bins mon_bins cluster
## 2582  15827        3         5        4       6
## 2703  16007        2         5        4       6
## 2828  16170        2         5        4       6
## 3041  16455        3         4        4       6
## 3084  16515        3         5        4       6
## 3170  16638        2         4        4       6
## 3288  16791        2         5        4       6
## 3327  16841        2         5        4       6
## 3449  17015        2         5        4       6
## 3469  17043        2         4        4       6
## 3508  17092        2         5        4       6
## 3553  17162        2         5        4       6
## 3635  17284        3         5        4       6
## 3977  17738        2         4        4       6
## 4336  18235        3         5        4       6

nrow(df_cluster6)

## [1] 35

# count(df_cluster6$rec_bins)
# count(df_cluster6$freq_bins)
# count(df_cluster6$mon_bins)

#cluster 7 high paying customers having high frequency of buying

df_cluster7=df_mod10[df_mod10$cluster==7,]
tail(df_cluster7,15) 

##      custid rec_bins freq_bins mon_bins cluster
## 4266  18145        1         5        5       7
## 4286  18172        1         5        5       7
## 4293  18180        1         5        4       7
## 4306  18198        1         5        5       7
## 4313  18210        1         5        5       7
## 4321  18219        1         5        5       7
## 4325  18223        1         5        5       7
## 4327  18225        1         5        5       7
## 4328  18226        2         5        5       7
## 4331  18229        1         5        5       7
## 4341  18241        1         5        5       7
## 4343  18245        1         5        5       7
## 4352  18257        2         5        5       7
## 4362  18272        1         5        5       7
## 4371  18283        1         5        5       7

nrow(df_cluster6)

## [1] 35

# count(df_cluster7$rec_bins)
# count(df_cluster7$freq_bins)
# count(df_cluster7$mon_bins)

#cluster 8 low frequency customers who rarely buy but consist of low to high spenders

df_cluster8=df_mod10[df_mod10$cluster==8,]
tail(df_cluster8,15) 

##      custid rec_bins freq_bins mon_bins cluster
## 4265  18144        1         3        5       8
## 4278  18161        1         3        4       8
## 4281  18167        1         3        3       8
## 4284  18170        2         2        3       8
## 4290  18177        2         3        3       8
## 4292  18179        1         3        4       8
## 4298  18188        1         3        5       8
## 4323  18221        2         3        3       8
## 4330  18228        2         2        3       8
## 4332  18230        1         3        5       8
## 4337  18236        2         3        3       8
## 4338  18237        1         3        3       8
## 4353  18259        2         2        5       8
## 4357  18263        2         3        3       8
## 4372  18287        2         3        4       8

nrow(df_cluster8)

## [1] 607

# count(df_cluster8$rec_bins)
# count(df_cluster8$freq_bins)
# count(df_cluster8$mon_bins)

#cluster 9 recent buyers frquent buyers, high spenders ,best customers

df_cluster9=df_mod10[df_mod10$cluster==9,]

tail(df_cluster9,15) 

##      custid rec_bins freq_bins mon_bins cluster
## 3348  16875        3         5        5       9
## 3388  16928        3         5        5       9
## 3397  16940        3         5        5       9
## 3428  16984        3         5        5       9
## 3476  17050        4         5        5       9
## 3484  17061        3         4        5       9
## 3720  17400        4         5        5       9
## 3800  17509        3         5        5       9
## 3860  17589        3         5        5       9
## 3862  17591        3         5        5       9
## 3876  17612        3         5        5       9
## 3918  17667        3         5        5       9
## 3963  17722        4         5        5       9
## 4060  17863        3         5        5       9
## 4310  18204        3         5        5       9

nrow(df_cluster9)

## [1] 91

# count(df_cluster9$rec_bins)
# count(df_cluster9$freq_bins)
# count(df_cluster9$mon_bins)

cluster 10 low spenders, frequent buyers

df_cluster10=df_mod10[df_mod10$cluster==10,]
tail(df_cluster10,15) 

##      custid rec_bins freq_bins mon_bins cluster
## 3587  17214        3         5        3      10
## 3622  17259        5         5        2      10
## 3625  17265        4         5        2      10
## 3858  17585        4         5        3      10
## 3878  17614        3         4        2      10
## 4001  17774        4         5        3      10
## 4020  17802        3         5        3      10
## 4082  17890        5         4        2      10
## 4086  17894        3         5        3      10
## 4089  17897        5         5        2      10
## 4105  17921        3         5        3      10
## 4162  17997        3         5        3      10
## 4244  18116        3         5        3      10
## 4291  18178        4         4        3      10
## 4305  18196        4         5        3      10

nrow(df_cluster10)

## [1] 72

# count(df_cluster10$rec_bins)
# count(df_cluster10$freq_bins)
# count(df_cluster10$mon_bins)

#high valued customers have RFM score of 5,5,5

df_mod10$customerID=rfm_bin$custid

df_mod10[ df_mod6$rec_bins==5 & df_mod6$freq_bins==5 & df_mod6$mon_bins==5 ,]

##      custid rec_bins freq_bins mon_bins cluster customerID
## 124   12501        5         5        5       2      12501
## 573   13093        5         5        5       2      13093
## 1196  13952        5         5        5       2      13952
## 1242  14016        5         5        5       2      14016
## 1564  14461        5         5        5       2      14461
## 2135  15235        5         5        5       2      15235
## 2243  15379        5         5        5       2      15379
## 2460  15665        5         5        5       2      15665
## 2567  15808        5         5        5       2      15808
## 3382  16919        5         5        5       2      16919
## 3669  17337        5         5        5       2      17337
## 3725  17406        5         5        5       2      17406
## 3754  17444        5         5        5       2      17444
## 3795  17504        5         5        5       2      17504
## 4049  17850        5         5        5       2      17850
## 4333  18231        5         5        5       2      18231
## 4354  18260        5         5        5       2      18260

#plot with 10 clusters

res.pca <- prcomp(df_mod10[,c("mon_bins","rec_bins","freq_bins")],  scale = TRUE)
# Coordinates of individuals
ind.coord <- as.data.frame(get_pca_ind(res.pca)$coord)
# Add clusters obtained using the K-means algorithm
ind.coord$cluster <- factor(df_mod10$cluster)
ggscatter(
  ind.coord, x = "Dim.1", y = "Dim.2", 
  color = "cluster", palette = "npg", ellipse = TRUE, ellipse.type = "convex",
  size = 1.5,  legend = "right", ggtheme = theme_bw(),
  xlab = paste0("Dim 1 (", variance.percent[1], "% )" ),
  ylab = paste0("Dim 2 (", variance.percent[2], "% )" )
) +
  stat_mean(aes(color = cluster), size = 4)